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MODEL PC-1250, OPTIONAL BOARD AND PERIPHERALS 
LIMITED WARRANTY 


Sharp Electronics Corporation warrants each of these products to the original purchaser to 
be free from defective materials and workmanship. Under this warranty the product will 
be repaired or replaced, at our option, without charge for parts or labor, with the excep- 
tion of supplies, such as batteries, ribbons, inked rollers, etc., when returned to a SHARP 
FACTORY SERVICE CENTER listed in the instruction booklet supplied with your 
product. 


This warranty does not apply to cassette tapes, software programs or appearance items 
nor to any product whose exterior has been damaged or defaced, nor to any product 
subjected to misuse, abnormal service or handling, nor to any product altered or repaired 
by other than a SHARP FACTORY SERVICE CENTER. This warranty does not apply 
to any product purchased outside the United States, its territories or possessions. 


The period of the warranty shall be ninety (90) days on parts and labor from the date of 
the original purchase. 


This warranty entitles the original purchaser to have the warrantied parts and labor 
rendered at no cost for the period of the warranty described above when the unit is 
carried or shipped prepaid to a SHARP FACTORY SERVICE CENTER together with 
proof of purchase. 


THIS SHALL BE THE EXCLUSIVE WRITTEN WARRANTY OF THE ORIGINAL 
PURCHASER AND NEITHER THIS WARRANTY NOR ANY OTHER WARRANTY, 
EXPRESSED OR IMPLIED SHALL EXTEND BEYOND THE PERIOD OF TIME 
LISTED ABOVE. IN NO EVENT SHALL SHARP BE LIABLE FOR CONSEQUENTIAL 
ECONOMIC DAMAGE OR CONSEQUENTIAL DAMAGE TO PROPERTY. SOME 
STATES DO NOT ALLOW A LIMITATION ON HOW LONG AN IMPLIED WARRANTY 
LASTS OR AN EXCLUSION OF CONSEQUENTIAL DAMAGE, SO THE ABOVE 
LIMITATION AND EXCLUSION MAY NOT APPLY TO YOU. IN ADDITION, THIS 
WARRANTY GIVES SPECIFIC LEGAL RIGHTS AND YOU MAY HAVE OTHER 
RIGHTS WHICH VARY FROM STATE TO STATE. 
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FOR YOUR RECORDS.... 


For your assistance in reporting this electronic calculator in case of 


loss or theft, please record below the model number and serial number 
which are located on the bottom of the unit. 
Please retain this information. 


Model Number Serial Number 


Date of Purchase Place of Purchase 
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APPLICATION SOFTWARE 


FOR 
PC-1250 / CE-125 


This program library includes twenty (20) programs in mathematics, statistics, 
engeneering, business, and game fields. 


The programs in this library are recorded in the supplied microcassette tape. 


This program library is editted according to the followings, so please read these 


carefully in prior to your operation. 


Program Title 
This is asummary of the program contents. 


Overview: 
The brief explanation (concept) of the program is shown. 


Instructions: 
Shows the brief explanation of how to use and operate this program accord- 
ing to the ‘‘Key Operation Sequence”’ explained later. 


Example: 
For a better understanding of the program execution, an example using the 
program is provided. 


Contents/Reference: 
To let you understand the logics employed in the program such as formulas 


are explained. 


Printed Outputs: 
Outputs through the printer (CE-125) are provided by using the example. 


Key Operation Sequence: 
For your program execution, the actual key operation sequence is shown 
step by step by using the example. 


Program List: 
Program list is output through the CE-125. 
How to enter the programs into the machine. 


The Program List shown in this library is basically supposed to be typed 

in as it is printed. 

However, there are several points you should know in prior to the typing 

such as; 1) The colon (:) right after each line number must be omitted. 
2) key must be pressed at the end of each program line. 


For more details, refer to the instruction manual of the PC-1250. 


Showing the bytes used in each program itself 


The number of bytes used in each program is shown at the end of each 
program listing. For instance, in the TYPING PRACTICE program, 475 
were used bytes. 

They way to find this out is as follows: 

at RUN position 

1) CLEAR 

2) 1438 [=] MEM — number of bytes. 


Memory Contents: 
Memory contents during the program execution are explained. 


Also make sure that you use these programs after through checks through such 
as the examples. 

For continuous improvements and additions, these programs are subject to 
changes without notices. 


To help us improve our programs, we would appreciate any suggestions or com- 
ments in writing. 

Sharp Corporation and/or its subsidiaries assume no responsibilities or obliga- 
tions to any losses or damages that could arise through the use of this program 
examples and the relevant micro software tape. 
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CONTENTS 


(Page) 
FILE NAME & TAPE COUNTER 
in the supplied microcassette tape... 6.6... eee eee ees 5 
NEWTON’S METHOD FOR FINDING ROOTS OF 
EQUATIONS atenacs Pie ee anes tune osbe as Mains se) sas eee ne GES 6 
NATIRIXCPRODUGIE. cacin ence tsctantoin ci ansuanasg nierece are cowens: sth ore) ates 10 
NUMERICAL INTEGRATION USING SIMPSON’S 
FULD Ee ere Te EEE Ee ROP Pte ee si So 16 
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EVITA THON ec etn ok ale tee le cia ah eral eg caladl s Sen sued eine @> She. Sel 23 
CORRELATION COEFFICIENT AND LINEAR 
REGRESSION Ge neece ce eee ee Stuy chealele aude nobeg nyse sk lender mts as 28 
HISTOGRAM grtice bok Gee ace she a tas craters DY eai'e Sacua pepe ome 34 
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NUMBER OF DAYS CALCULATION .......-0 022s eee eee 61 
SORT N Gis hoe cee Ge dace eee wha a oo Samhamew Wo ceenba aia ere” 9 65 
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OF INSTALEMENST) eine c ceadt os Secale oa re Metal ae Geereee Ss 69 
MY.PING PRACTICE es. « cu dot Oe iene Wd aoe com Eber e ete ees Doe coe. 74 
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Programs with (P) prefixed to the program title need CE-125 in program execution. 


FILE NAME & TAPE COUNTER 
in the supplied microcassette tape 


(File name) (Program title) (one tape counter) 
(criterion) 

A-1 NEWTON'S METHOD FOR FINDING ROOTS OF 

EQUATIONS .-2.2°.5. 5. apes Ms A iloteraatus toler anieveres att! 010~024 
A-2 MATIRUXRRODU CT ee sce si, ct cs th vn! Paar) Ach ope ops 031~068 
A-3 NUMERICAL INTEGRATION USING SIMPSON’S 

RU Ee eee ha Fade ted: at a cya, ERT SOO oe 074~102 
A-4 AVERAGE, VARIANCE AND STANDARD 

DEVIATIONGIEY cee OMNE Fors ct cs Se ee 109~ 131 
A-5 CORRELATION COEFFICIENT AND LINEAR 

REGRESSION et cer  eee  te a UNe SOE 137~ 169 
A-6 HISTOGRAM. 205 S88 Bava! 4) D6 700) & DeMemlEng: 174~203 
A-7 INTERSECTION BETWEEN CIRCLE AND STRAIGHT 

Ll | aaa ar ce ae wea tare ter ern Seatac Ameren o n4 oh ae Aas ete 209~222 
A-8 AY CONVERSIONGHIAT Wt 4) er 228~ 258 
A-9 CEOTHOIDCUIRVIE. Sep ie vac couces tae wd bya econ sk bee 263~278 
A-10 .CROSS-FOOTING.. *.at.se3. yuleu ortt-enagrio.2t DSS end oi Ba. 283~313 
A-11 NUMBER OF DAYSCALCULATION ................. 318~328 
A=s1'2SO RN Greeny Pn he saat th Re lee alpen Ret 333~349 
A-13. THE LOAN LIMIT, CALCULATION OF THE NUMBER 

GEUINSTALEISMENT $5 ofsctszsks, & eds ccm o Be cwlatehiere, Gece. ce 354 ~368 
A=14. NY PING RRACTICES: «fit ci8 vio tees oo eee alk Ue Bee S12> 301 
A-15 BIORHYTHM (SEMI-GRAPHIC)..................... 392~415 
A—16:--SOF-TLANDINGIGAME:-..4.-24Ageemes vps Saree eta 419~432 
A-17 MEMORY CHECKER Sah segue te ree teaches Shae AKU ROMER a 436~457 
A-1¢ “BUGHINS Se ae! yo tee 461~480 
A=19" ‘DOUBLE ROTARION | .c% 25.8 ta wo te elie eee 485~497 
As720s EPORTRAIICR UNM oc 9 os ao owe Spend eh Uh, 4 PR 501~519 


Note: Some program list contents may differ slightly in between the programs 
included in the tape and this program library. In program execution, however 
this difference causes no impediment. 


Program Title: NEWTON’S METHOD FOR FINDING ROOTS OF 
EQUATIONS 


OVERVIEW (mathematical) 


Finding the roots of equations is usually troublesome, but by using Newton’s 
Method the approximate roots of equations can be found. 

When 1 root is found, depending on the interval width, by using Newton’s 
Method the starting point automatically changes. 


CONTENTS 


f (Xn) 


X ce ee 
n+1 n (Xa) 


If the absolute value of the distance between X, and X,,41 is less than 10=*3 
X,_ is considered a root and is displayed. Here the first derivative is defined in 
the following way: 


F(X +h) -fXY) 
h 


6X) = 


(h is the minute interval) 


Change E-8 in line 340 to change the value for 105° 
y 


INSTRUCTIONS 
INPUT 
Starting point 
Minute interval 
Interval 


Interval width 


t 
OUTPUTS Starting point 
Root value (by pressing the key, the next interval’s root is found) 


EXAMPLE 
_ x3 — 2x? —x+2=0 (the roots are —1, 1, 2) 


starting point = 0 
minute interval = 10~* 
interval = 0.5 


The above values are used in the calculation. 
The functions are to be written into lines after 500 as subroutines. 


How to type in the example: 
1. Go into PRO mode by operating the mode change key. 
2. 500B = ((X—2) * X—1) * X+2 

510 RETURN That is all that had to be done. 


KEY OPERATION SEQUENCE 


Display Remarks 


STARTING POINT = __ aig for starting point 


MINUTE INTERVAL = __ ea! for minute interval 


INTERVAL = _ Waiting for interval width 
input 


ANSWER = . | Display of roots 


By repeatedly pressing the 
ANSWER = ‘ key the roots of 
the function are found. 


ANSWER = 


ANSWER = 


ANSWER = 


ANSWER = 


ANSWER = 


ANSWER = 


FLOWCHART 


Input (starting 
point, interval 
and minute 
interval) 


100 


Newton's Method 
calculation 


Newton's Method 
calculation 
subroutine 


300 


D=C 
C = D-A xY/(B—Y) 


Roots are 
displayed 


RETURN 


Function 
calculation 
subroutine 


500 


B=((X—2)KX—1)KX+2 


PROGRAM LIST 


z= UTD 
6 | 
baa 


ho 
pen) 


I 
AL= 

3g:IN2 "TNTERVAL=" sul 

49:G=¥iF=¥i2=6 

58: 1F GOTO 78 

69:G=6-W:C=G: GOTO 38 

7ea:C=6 t 

Ba:G05UB 388 

9g: F=F +i CHF 

188:G0SUB 386 

1i18:G0T0 58 

L28:END 

348: 8=C: GO5UB 588 

SiB:Y=Bi s=A+C 

329:G0SUB 584 

3358: D=CiC=D-Aaeye CB-Y) 

Z49:51F ABS (D-C3>=E-28 
6070 3848 

358: BEEP 3: PRINT *ANSWE 
R="90 

368: RETURN 

598: B=C CRP eK 1 eX +2 

518: RETURN 

268 


MEMORY CONTENTS 


Minute interval 


f (x) 


> 
| 
eSmsile. 


Xo 
f(x +h) 


Vv 


Vv 


| 
| 
—t 


a 


-|Izlal/nimiolo|o 


J - 
K 
L 
M 
N 
O 
P 
Q 


=] 


Starting point 


Interval 


x 


4 


f (x) 


N/iI</|xX/S/< Cl/Aa!on/D 
ee 


Initial flag 


Program Title: MATRIX PRODUCT 


OVERVIEW 


Finding matrix products 


The matrix product C (mn matrix) is found for matrices A x B (ml x In). 


INSTRUCTIONS 


1. The program is initiated by pressing 
The number of rows (7m) and columns (/), 
2. The elements of matrix A are input. 


LA}. 


for an ml matrix A are input. 


3. The number of columns (7) of matrix B are input. 


4. The data is revised by pressing 


The location to be revised and the revised value is input. 


5. The elements of the resulting matrix C are 


REFERENCE (the calculation) 
1 re 
4 Se Cee 


printed by pressing F 


= 1 m 
Cy = tet — ape al... ne 
4, @y2 41] by by bin 
42; 422 a2] bab ban 
m . . 
Imi 2 @ml bn bp by, 
l n 
Cu C12 Cin 
Ca = C22 Can 
Cm1 Cm2 *** Cmn 
(ml +1In+mn < 38) 
EXAMPLE 
mI matrix A In matrix B mn matrix C (product) 
(4, 3) (3, 2) (4, 2) 
4 0-1 —5 16 
ee el 2 ie eS 
—9 2 5 s 1 ri 2 -37 
5 -1 3 4 43 


KEY OPERATION SEQUENCE 


ae Key Input 


B~ 


w 


py 


ENTER 


=) 


w 


NO 


Display 


Remarks 


Waiting for input of the 
number of rows in the ml 
matrix A 


Waiting for input of the 
number of columns in the 
ml matrix A 


Waiting for input of the 
element (1, 1) of matrix A 


Waiting for input of the 
number of columns in the 
In matrix B 


= 
~N 
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KEY OPERATION SEQUENCE 


Remarks 


| 


All data is printed 


Key Input 


z 
Q 
FE 
” 
fe) 
a 
z 
2 
2 
> 
Ww 
cc 


REVISION VALUE 


ENTER 
ENTER 


REVISION POSITION 


ALL DATA PRINT ? (Y/N) — 


Processing is ended without 


data being printed 


Calculation results are 
printed 


N 


ENTER > 
> 


PRINTED OUTPUTS (example of ALL DATA PRINT) 


= ses « 
Ut ag OD 
tt) 
tow ou 
Fe aD 
ret eh at 
Seal -a od 
mo eo oo 
-_ = » 
st or od 
Wow ow 
Bo dk 


C4s2)=-1, 


=x 
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FLOWCHART 


Data input 


60 


Input of ml 
matrix elements 


100 


n input of the 
In matrix 


120 


Input of In 
matrix elements 


150 


DIM 
D(M,N) 


END 


Data revision 


160 


Revision 
position inputs 


161 


All data to be 
printed? 


280 


Printing all 
the data 


Search for 
revision positions 


Revision 
value input 


Calculations 


310 


Product finding 
the mn matrix 
elements 


320 
Printing the 


mn matrix 
elements 


PROGRAM LIST 


igi’aAY’: CLEAR : WAIT @: 
INPUT "M="3ms LPRINT 


Yms’ sms 
GOTO 18 
SB:INPUT “L=*3Li LPRINT 
“L="sL: GOTO 5a 
44:607T0 38 
SQ: DIM BeM-1sL—-1)sBS¢a) 
54:FOR T=4 TO M-t: FOR 
J=H TO L-1Li BSC H="AC 
“+. STRS CLL > 
STRE CJ+1)+")=" 
THIPAUSE BE(as: INPUT B 
CIs Jo: LPRINT BS¢@5;5 
BeIsJ>: GOTO 94H 
88:6070 7a 


GOTO 38 


QBINEXT J: NEXT I: 
PAUSE "L="5L 


BA:INPUT °N="SN5 LPRINT 
“N="3N5 DIM CCL-isN- 
i): GOTO 128 

{i8:GOTO 148 

128:FOR I=8 TO L-t: FOR 
J=8 TO N-i:BS¢@p="BC 
*+ STRS CI4i de? “+ 
STR$ CJ+1)+"3=" 

1358: PAUSE BScHd: INPUT C 
CIs J}? LPRINT BS¢@o: 
CcIsJ>: GOTO 158 

i49:607T0 136 

{5B8:NEXT J: NEXT I: 
D¢M-tyN-1): END 

i662: "B's BScB =": INPUT 
"REVISION POSITION=* 
sBS(H)52= LEN BScGa: 
GOTO 178 

161:GO0TO 258 

L7BiX$= RIGHTS (CBSCA)s2- 
25:Y= WAL xB: TF ¥<1 
GOTO 166 

188:W=Z- LEN STRS Y-3 

i9@:IF Wee GOTO 168 

2OG°1F MIDS (BS(B>s2-ids i 
24379" LET Webi-Ls 
GOTO 198 


DIM 


14 


248: 


on 
a 


bo bo 
an 


L 


?R$= LEFTS 
PIF CRS="A" DFC YC=M I+ 


t¥S= RIGHTS CBSCOds Wd 


tU= YAL ¥$t IF U<t 
GOTO 160 


CBSCBI9i) 


INPUT "REVIS 
"EBCY-t9U- 
BSCHor "=" 


U<sLas3 
TON VALUE= 
132 LPRINT 
3BCY¥-isU-1) 

TF CRS="BYRtC VK SLI+¢ 
U<sN=3 INPUT "REVIS 
TON VALUE= "SCC¥-1sU- 
idf LPRINT BS$t@oa"=" 


i} 
roCY—LsU-1) 


iNPU DATA PRIN 
TO PaYeN) "OS 


260:1F O$="N" END 

27Qi1F G$<¢>"¥" GOTO 258 

2BH:LPRINT “": LPRINT °™ 
=H’aMi LPRINT "L="SLe 
LPRI "NST N 

298:F0R [=4 TO M-i: FOR 


380: 


ia73 


J=4 TQ L-1: LPRINT * 
AC™s STRS Cl+ibava’s 
STRS CJ+ioa "p=" Bels 

J32 NERT Je NEXT I 

FOR [=8 TOL sia FOR 
J=@ TO N-1: LPRINT ° 
Bev’s STRS Iti ee 


STRS CJ+isr "=" CCTs 
J}: NEKT J: NEXT I: 
END 


"C’: LPRINT *": FOR 
M-1: FOR J=a 
PD(KsJ)=@ FOR 
T=@ TO L-1:D(Ks J)=0¢ 
Ks J)+BCKs D)eCC TJ: 
NEXT I 
NEXT J: NEXT K 
FOR I=@ TO M-1: FOR 
J=@ TO N-1! LPRINT ° 
CCPF STRE CI+10E TSG 
STRE CI+1)9")="9DCI 
J)! NEXT J: NEXT I: 
END 


MEMORY CONTENTS 


Number of columns in ml matrix 


Number of rows in ml matrix 


Number of columns in mn matrix 


V 
J 
Vv 
Vv 
V 
v 
Vv 
Vv 
v 


ml matrix data 


In matrix data 


mn matrix 


Program Title: NUMERICAL INTEGRATION USING SIMPSON’S 
RULE 


OVERVIEW 


Numerical Integration is done on function values given at equal interval widths 
of the integration interval. 

If the function equation is written in the program the values in the intervals of 
integration are automatically given. 


CONTENTS (calculation contents) 
1. Data is input and integration carried out. 
Simpson’s 1/3 formula splits 


the interval [a, b] into n Sf? F(x)dx Sepnoaii ae Pi (x) dx 
. a ‘ i=0 Xai 
smaller intervals. 


The values of the function N/2-1 
over the smaller intervals are = eA I; 
approximated in 2’s (27, 2i+1 
units) by using a 2nd order = t (yyt4y,+2y24+4yat swabs 
equation to approximate the 3 
curve. -+++4y_,t+yn) 
After the data (function 
. b-a 
values) for the smaller inter- h= aa 
vals are input, the integrated h 
values are printed. = 3 ait AV 2H1 t¥ 2142) 


2. Integration using the function equation written in the program 
Using the input function equation as a base, the intervals [a, b] are split up 
into n smaller intervals and the function values are calculated and printed. 
The integrated values are also printed. 


INSTRUCTIONS 


1. Using [DEF] (A ], the program is started and a selection either the data input 
method or the function equation input method of calculation has to be done. 
The integration interval’s starting point, ending point, and number of divi- 
sions has to be input. 


The data input method of calculating: 
as the integration intervals are being input the data is printed. 
The function equation input method of calculating: 
the function values are printed according to the function equation. 


2. The corrects the input data as required. Enter revision number 
and revision value. 
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3: The integration values are printed according to the integration 
interval data (function values). 


(Note) The number of divisions is up to 74 and must be a even number. 


EXAMPLE 


1. The data is input and the calculations are done 
interval [0, 5], 40 divisions 


f (x1) f 22) | -2 | £033) 
0 f (x34) 
2 f (x35) 
; “ f (x36) 
6 f (x37) 
7 


B f (*27) f (*38) 7.8 
f (x17) f (x28) f (x39) 6 


2 f (x18) j f (x 29) 3 
f(x f (x19) f (% 30) 
LS f (x20) 3 £6031) - 
f (x10) f (x21) f (x 32) 12.5 


2. The function equation is stored in the program and the calculations are done. 
= ((X—2)X-1) X+2 
interval [0,1] 20 divisions 


The function is stored after line 900 as a subroutine. 
How to store into the program (for the case of the example) 
(Put in PRO position) 
900 Y = ((X—2)* X—1) k X+2 
910 RETURN this ends the input 


PRINTED OUTPUTS 


A=. A=0, 
B=5. Bel, 
N=4@, N=24, 
1 Fc(@izd, 
2 F(@.125)=5.5 1 Fc@=2, 
3 F(@.25)=6. 2 FC@.059=1.945125 
4 F(@.375)=5.7 3 F¢@.12=1.881 
5 F(@.539=5. 4 F(@.159=1.888375 
6 F(@.625)=2. 5 F¢@.2)=1.728 
7 FCO. 753=8. 6 F(@.25)=1.640625 
8 FCQ@.875}=-1.38 7 F¢O.39=1.547 
9 FCLd=-3, 8 F(@.359=1.447875 
1@ F¢1.125)=-5,. 9 F(O.4)=1,.544 
11 Fel. 25)=-6, 16 F(@.459=1.236125 
12 F(1.375)=-7. 11-FCO.59=1.425 
13. FC1.99=-8. 12 F(@,55)=1.011375 
14 FC1.625)=-9, 13 F(@.6)=8.896 
15. Ftta75)s-9.6 14 FC@.653=8. 779625 
16 FC1.875)=-18, 15 F(@.7)=0.663 
17 F¢23=-9.5 16 F(@.75>=8.546875 
18 FC2.125)=-9, 17 F(@.8)=8.432 
19-F:6252995-8.59 18 F¢@.859=86.319125 
26 FC2.375)=-7. 19 FC@.99=8,209 
21 FC2.5)=-5.5 20 FC@.95)=0. 102375 
22 F(2.625)=-4, 21 FC1>=@. 
23 FC2.75)=-2. 
24 FC2.875)=8, F=1.083333333 


25 FCS =2. 

26 FC3.125)=4, 
27 FC3,259=6. 
28 FCS.375)=7. 
29 F(3.5)=8. 

36 FC3.625)=9.7 
31 FC3.75)=11. 
32 F(3,875)=12. 
33 F¢4)=12.5 

34 F(4.1259=13, 
35 F¢4.25)9=12.5 
36 FC4.375)=12, 
37 F(4,59=168.5 
38 F(4.625)=9. 
39 Fed. 75)=7.8 
40 FC4.375)=6, 
41 Fcso=4, 


F=8.291666667 


KEY OPERATION SEQUENCE 
(when the values are input) 


Remarks 


Selection of data input or 
equation input 


Waiting for the starting point 
of the integration interval 


Waiting for the ending point 
of the integration interval 


Waiting for the integration 
interval division number 


Waiting for the data to be 
input 


F (0.125) = 


F (9.25) = 


i 
| 
1 
1 


Display Remarks 


= Waiting for the revision 
REVISION NO. ? = _ number input 


Waiting for the revision 
value input 


ALL DATA PRINT 2(Y/N) — 


ENTER|| > All of the data printed out 


Finished without printing 


(to be continued to ) 
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KEY OPERATION SEQUENCE 
(when the function equation is used) 


fe] eee [ae 


Waiting for the data input 

(DEF](_A } F(X) :INPUT=1/CAL.=2?_ method or the equation 
input method of calculation 

ox Waiting for the integration 
er ee 
Waiting for the integration 
oa ea ea 


interval division number 
[ENTER] 


Prints the calculations done 
to find the function values 

using the function equation 
as nar a base 


(final procedure in both cases) 


Key Input Display Remarks 


haa Integrated values printed 
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FLOWCHART 


Data input Data revision 


10 


100 


Revision 


position input 


Selection of data 
input method or 
using function 

equation 


20 


Input of integratio 


N 
starting point 140 
30 Print all data? 
Input of integratio 160 


ending point 


Input of number of 
integration intervals 


M = (B—A)/N 


DIM Y(N), B$(0) . 
Calculation output 


uses function 


, 300 
equation - 


Calculation of 
integration 
350 


Integrated 
values printed 


function values 
calculated in 
program printed 


data input 
for function 
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12 


0 
Revision 
value input 
Print all data 


PROGRAM LIST 


1a:"a’: CLEAR : WAIT @: 
INPUT °F(X) INPUT=1/ 
CAL.=2 7°30: GOTO 16 

LSS END 

16t1F (O=1)+¢0=294>1 
GOTO 18 

20: INPUT "ASFA LPRINT 
vAevHR 

3Q:INPUT "B="#B! LPRINT 
*B="GB 

4Q8INPUT "N="3N 

4521F N“2<> INT (N“2) 
GOTO 40 

472LPRINT “N="3N 

5@:M=(B-A)/N? DIM YCN)s 
BS(Q)tL=At IF 022 
GOTO 206 

6O:FOR I=8 TO NtBS(Q)=" 
Fcv+ STRS L+" =" 

7O:PAUSE BS(B) 

S@:INPUT Y¢I)! LPRINT 
USING "RERGIH19" 95 
BS(@)3 USING #YCIDEL 
=L+N: GOTO 90 

85:G0T0 72 

9OtNEXT I 

913END 

190:°BY: INPUT "REVISION 
N@.2="FH? GOTO 118 

185:G0TO 140 

L1Q21F (H¢=B)+(HON#1D=1 
GOTO 108 

120: INPUT °REVIS. 'N YALU 
E="3Y(H-1)# LPRINT 
USING "RER°SHEY FCG 
STRE CAHMRCH-1))3 = 
“} USING FYCH-1)8 
GOTO 108 

130:G0TO 120 

14Q: INPUT “ALL DATA 
PRINT 2¢Y/N)*3WS 

1SQ21F (WS="Y")+(US="N") 
<>1 GOTO 140 

16B21F WS="N" END 

170:LPRINT °°: LPRINT °A 
="}A: LPRINT °B="3Bt 
LPRINT *N="3N 

189:M=(B-A)/NIL=At FOR I 
=@ 10 N 

190:LPRINT USING ‘BEa"; ¢ 
T+1)3" Fors STRS LE” 

=") USING $¥C1D 
195:L=L+m: NEXT I: END 
20@:LPRINT *’: FOR 1=@ 
TO N?X=L? GOSUB 900 
21@:LPRINT USING "#Bm"s< 
T4193" FO"S STRS Li" 
=") USING FY 


220: 
360: 
310: 


320: 
330: 


346: 
350: 


908: 
910: 


814 


Y¥CT)SY2L=SL+mMs NEXT I 
> END 
*C*’sS=¥CBsL=S: FOR 
1=@ TO Ni IF S>YCT)D 
LET S=¥C1) 

NEXT I 

S=¥CO)+Y(N) 

FOR I=1 TO N-1: IF I 
724> INT (172) LET K 
=4: GOTO 358 

K=2 

S=S+K*¥(1): NEXT I'S 
=SaM/32 LPRINT "": 
LPRINT *F="3S: END 
Y=CCK- 2) #K- 1 #X+2 
RETURN 


Integration interval starting point 


Integration interval ending point 


XI} Qa} nm] m!| oO} ao| wo] > 


Term coefficient during integration 


ry) Ale 


J Max. value of Y (7) 


h 


Number of divisions 


flag for inputting or using equation 


M 
N 
oO 
P 


| 


sh Min. value of Y (i), integration value 


Ni 
J Function equation X 


Function equation Y 


Program Title: AVERAGE, VARIANCE AND STANDARD DEVIA- 
TION 


OVERVIEW 
If the data are input, the total sum, average, variance, and standard deviation will 
be calculated for you. Revision of input data as well as data with weights is 
possible. 


CONTENTS 
Total sum Lx fi Standard deviation o = Vo? 
Average > oe 2x fi 
Lf 
Variance = 2 on a Number of data entries (up to 50) 
Ji- 


(when there are no weights f;= 1) 


INSTRUCTIONS 
1. At (A ] , select whether or not there are any weights, then input the 
data. 


2. is used to find any revision positions in the data. is 


used to revise the data. 


3. The total sum, average, variance, and standard deviation will be calculated 


with Cp). 
EXAMPLE 


x; | 14.1 | 142 | 143 | 144 | 14.5 | 
jf 8 19 23 15 10 


(data with weights) 
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KEY OPERATION SEQUENCE 


Key Input Display | Remarks 


2 Waiting for number of data 
NO. OF DATA = _ fnput 


= = Waiting for the selection of 
WEIGHTS=1/NO WEIGHTS=2?_ weighisino weights 


X(1) = 


End of the process 
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KEY OPERATION SEQUENCE 


Key Input Display Remarks 


X(1)=14.1 
F(1)=8 


is used to input 
X(2) = 14.1 the revised values when data 


errors are found 


X (2) = 


REVISION VALUE = ?_ Revised value is input 


F(2)=19 


TOTAL SUM = 1072.5 all Display of total sum 


MEAN VALUE = 14.3 Display of average 


VARIANCE = 1.432432432E—02 | Display of variance 


Display of standard devia- 


STD. DEV. = tion 


1.196842693E—01 


Processing finished 
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FLOWCHART 


Data input Data revision 
a —— 
10 a 200 

CLEAR WAIT 
WAIT @ 
20 210 
Number of data Data display 
x (i) 
——— 
30 < 


With or without 
weight 


40 


Ny, 
DIM 
X(P—1), F(P—1) 


Data input 


Calculation 


otal sum, average, 
variance, standard 
deviation 


Total sum, average, 
variance, standard 
deviation 
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PROGRAM LIST 


1@:"A"’: CLEAR = WAIT @ 41@:PRINT *YARITANCE="3Q: 
2B:INPUT “°NO. OF DATA=” PRINT “STD. DEV.=": 
iP PRINT S: END 
3QiINPUT “WEIGHTS=1/N0 
WEIGHTS=2?°5A 643 
4@:1F A=2 DIM XCP-1)2 
GOTO 74 
5@:1F A=1 DIM K¢P-LdsF¢ MEMORY CONTENTS 


P-t): GOTO 78 

6@:G0TO 38 

7@:FOR [=@ TO P-i 

BOrBS="KXC"+ STRS CI+i)+ 
yo" 

B5S:PAUSE BS: INPUT X¢T> 
: GOTO 148 

98:60T0 85 

1H: 1F A=2 GOTO 156 

120: BS="FC"%+ STRS CI+to+ 
sh 

13@:PAUSE BS: INPUT FCI) 
: GOTO 15@ 

149:G0T0 134 

L5Q:NEXT I: END 

200:"BY’: WAIT t1=6 

21Q:BS="KXC%+ STRS CI+i)+ 
"y="iJ=i: PRINT BSsx 
c1> 

23Q:1F A=1 LET BS="rc°+ 
STRS CI+i}+%3="5 
PRINT BSiF CI): J=2 

240: T=I+t 

25@:1F I=P END 

255:G0T0 218 

260: °C*: PAUSE BS: IF 
LEFT$ (BS21)="R" 
INPUT "REVISION YALU Standard deviation 
="3XC1Id: GOTO 298 

27O:1F LEFTS (BS, 1)="F” 
INPUT "REVISION ¥ALU 
="3FC1): GOTO 298 

288:GO0TO 258 

290:IF J=1 GOTO 238 

291:G0TO 218 

300: °D*:N=8:7=8:5=8: FOR 
I=@ TO P-1:X=X¢1> 

3a5:F=i: IF A=1 LET F=F¢ 
es 

SiG N=N+Fi T=T+F eX: S=S+Fe 
X*X2 NEXT I 

40Q:WAIT 2 X=T/N2Q=(S-N&X 
#XOZCN-1)25=F0: 
PRINT “TOTAL SUM="sT 
: PRINT “MEAN VALUE= 
"ak 


0 |0/8\> 


xr}Q;nim 


| 
2 


v 


Data number 


Variance 


J 
K 
- 
— 
~ 
O 
P 
Q 
R 


Total sum 


2a, 


—— 


Program Title: CORRELATION COEFFICIENT AND LINEAR 
REGRESSION 


OVERVIEW (Statistics) 


Data is for analysis and testing hypotheses. 

This program finds the covariance and correlation coefficient for related data 
sets (X1, Y1) --- (Xn, Yn), as well as the linear regression. 

The following data input is put into the equation Y = AX + B, for output to 
the printer. 


INSTRUCTIONS 
1. Data input (X;, Yi). 
2. Correction of mistaken data. 
3. The covariance, correlation coefficient, regression coefficients and means are 
found and output to the printer. 
4. Y is estimated from the X value and output to the printer. 
5. The limit for the number of data entries is 100. 


CALCULATION 
=2 


Sa = Dxi? = nx 


Sxy = Uxiyi-nxy 

Syy= Lyi? — ny? 

Co = Byy/ (STNG Se os ne covariance 

r = SxyylVSxxSyy cree: correlation coefficient 
= S 

sf Sxy/ aor regression coefficient (y =ax + b) 

b =y-—ax 

EXAMPLE 


Estimated value 


Xeu7, 
X=8, 
X=7.5, 
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PRINTED OUTPUTS 
NO. OF DaTa=s. COVARTANCE= 


-3,. 460714236 
CORRELATION COEFFICIENT= 
-9,695968513E-@1 
*REGRESSION COEFFICIENT* 
A=-3, 942042318 
B=39.4475621 
*MEAN YALUE* 
R27.375 
Y=18.3575 


%(39=6.9 Y=. 


¥(8)212. x= 
KEY OPERATION SEQUENCE 


id Apeut cinsiae | Remarks | 


NO. OF DATA = 


{ENTER} Data input 


KEY OPERATION SEQUENCE 


Key Input Display Remarks 


REVISION POSITION = — 
X (2) REVISION VALUE = — 
76 REVISION POSITION = _ 


a 


ALL DATA PRINT ?(Y/N) — 


Output all data to printer 


Finish without having data 
printed 


Covariance, 

Correlation coefficient, 
regression coefficient A, B 
and mean values X, Y are 
calculated and printed 


ESTIMATION X = _. Y estimated from the value 


X and printed 


7 (ENTER] | ESTIMATION X = _ 
8 : Repeat 


> ory, a Ree 
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FLOWCHART 


Data input 


1 


1 


Number of data 
4 


1 


DIM 
X(G—1), ¥(G—1),B$() 


Calculation 


Covariance, correlation 
coefficient, regression 
coefficient, and average 
is found 


Covariance, correlation 
coefficient, regression 
coefficient, and average 
is printed 


Data revision 


00 
0 


54 


5 


Search for 
revision 
locations 


Revision 
value input 


56! 


58 


Yes or no 


All data is 
printed 


Value input 
for estimation 


Estimate the Y 
value corresponding 
to the X value 
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PROGRAM LIST 


18:°A"’: CLEAR 
12: INPUT “NO. OF DATA=” 
oN 
13:LPRINT “NO. OF DATA= 
"SN 
14:DIM XCN-1)sYCN-1)5BS 
(8) 
TO2FOR A=1 TON 
80: BS="XC"+ STR$ A+’ I=” 
81:PAUSE BS: INPUT X¢A- 
1) 
B82:LPRINT BS$3X(A-1) 
95: BS="Y("+ STR$ A+*)=" 
96:PAUSE B$: INPUT Y¢A- 
1) 
S7?LPRINT BSs¥CA-1) 
11@:NEXT A 
120: END 
130:"C*’: LPRINT **:I=0:J 
=O: K=02L=9:M=0 
150:FOR A=1 TO N 
155: 2=A-1 
160: 1=1+K¢Z) 
1782 J=J+¥¢2) 
18O2K=K+KC2)*xK(Z) 
19O2L=L+K(Z) #7 (2) 
2OO2M=M+Y¥(Z)4*Y C2) 
25@5NEXT A 
260: [=1/N: J=J/N 
270: K=K-N*I*] 
280:L=L-N*l4J 
2982 M=M-NeJeJ 
3052 H={CKeM) 
3072H=L/H 
319:LPRINT *COVARIANCE=° 
: LPRINT L/(N-1) 
320:LPRINT “CORRELATION 
COEFFICIENT=": 
LPRINT H 
330:LPRINT **REGRESSION 
COEFFICIENT** 
340: S=L/K: T=J-S#1 
35@5LPRINT * A="3S 
Z6@:LPRINT * B=*3T 
362:LPRINT °*MEAN YALUE* 


364:LPRINT * X="51 
366:LPRINT * Y="sJ 
370: END 


=e 


300: °B’SBS¢Qs="°"s INPUT 
"REVISION POSITION=" 
3BS¢(@) 

SOSSIF BS¢Bs="" GOTO 568 

314:¥= LEN BS: D$= LEFT$ 
CBSCB ys 12U= VAL ¢ 
MIDS (BSCB)s3s¥-193 

SIStIF CU<=O9+CUSN9=1 
GOTO 588 

S26: 1F D$="%" INPUT “REY 
ISION ¥YALUE="3X¢CU-1) 
? LPRINT °XC"S STR$ 
Us"9="sXCU-1)! GOTO 
308 

330:1F D$="¥" INPUT "REY 
ISION ¥ALUE="s7CU-1) 
: LPRINT “Y¥C"°Ss STR$ 
Us "2="s¥CU-1): GOTO 
388 

358:G0TO 508 

368:0$="": INPUT "ALL 
DATA PRINT ?¢Y/ND"S0 
$ 

STBIIF COS="¥"+C0$="N") 
€>1 60TO 568 

388: 1F O$="N” END 

S9B:LPRINT "NO. OF DATA= 
"SN 

600:FOR I=1 TON 

B1B=LPRINT “x¢*s STRS Is 
"="5RC1-1) 

62Q:LPRINT “¥C"5 STR I5 
"ye"s¥CI-1) 

630:NEXT I 

646:END 

T3B:°D": LPRINT °*: 
LPRINT **ESTIMATION* 


785: INPUT "ESTIMATION X= 
"sx: GOTO 888 

790: END 

BOAZLPRINT ° X="5K 

8182 Y=S#X+T 

B2Q:LPRINT ° Y="s¥ 

838:G0T0 785 


1835 
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MEMORY CONTENTS 


Estimated value X 


Estimated value Y 


Correlation coefficient 


Vv, mean value on X 


Regression coefficient A 


Regression coefficient B 
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Program Title: HISTOGRAM 


OVERVIEW 
This program graphs the histogram of the data input. 


CONTENTS 
Give the range of the input data A ~ B (A <B) and the interval width D of the 
frequency and distribution graphs. The various data X, are valid only when 
A<X<B and is ignored otherwise. 
When making a graph, the frequency given to one asterisk (* ) is first set. After 
the graph has been printed the mean value, number of valid input data and 
standard deviation is also printed. 


(Note) Both A and B must be integers and up to 4 digits. 


INSTRUCTIONS 


1. The program is initiated by pressing (R_](_U ](\N ] [ENTER] . 
The lower bound A, upper bound B and interval with (scale unit size) are 
input. 


2. The data is then input. The input data is printed, so if there was mistaken 
data entry, use when the display shows ‘‘DATA =" and it is 
waiting for data entry. The deleted data can be input once again. 

To continue data entry again press (A _] when display shows ‘DELETE 
DATA" and then continue with data input. 

3. When all data input is finished, input {C ] when the display shows 
“DATA=" and set the frequency of one asterisk (>), then printout of the 
histogram takes place. 

4. If when using the display shows ‘““OVER-DELETED CHECK”, 
then the data input was mistaken and the entire data set should be checked 
once again and program should be restarted from the beginning. 


EXAMPLE 


The historgram are desired for the marks of a math exam. 
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Range @ ~ 100 
Interval 10 
“ake = 1 


PRINTED OUTPUTS 


INPUT DATA 


DATA= 
DATA= 
DATA= 
DATA= 
DATAS 
DATAS 
DATA= 
DATAS 
DATA= 


73. 
eae 
63 


7a. 
42. 


zr 


|b 


oo fe on 


moon fe bo Oo bo dE on ed 


LH Oo Poe uo 
0 


B 
4, 


DELETED DATA 
ke 49, 


Jom) bed et OO J oo 
OF i ei? | 


wm fF 


Oe cee a 


Cn fe 


1 
i! Mite | 


fo I J 


hoe Ee Ro 


CT Led fs 


= 
= 


mm 
See en se oe oe oe A 


a 
Low 


18 


15 


----+----+----+--- 


4 
ee 

20 z 
HK 

30 3 


fe 

Pao] 
* 
= 
E 


Ce I cn eat eee oe ee ee oe ee eee 
= 
ge 
eS 
+ 
¥* 


a8 =) 
Bis 

68 6 

75 > 


fae 
eu 
a! 

om 


----+----4----4--- 


NO. OF DATA= 4a. 
MEAN VALUE= 68.425 
STD. DE¥.= 22.82639645 


KEY OPERATION SEQUENCE 


Key Input Display Remarks 


4 
R_|_U JN JL ENTER ees ere 


AS Waiting for lower bound 
zi input 


B= Waiting for upper bound 
= input 


= Waiting for scale unit size 
SCALE UNIT SIZE = _ input 


DATA = _ Waiting for data input 


DATA = _ 


DATA = _ 
= When the wrong data is 
DATA = _ input (DEF) (B } is used 


iz Waiting for delete data 
DELETE DATA = _ input 


o When using A] for 
BELETE DATA SS continuous data input. 


DATA = _ 


DATA = _ 


(Repeated input and deletion) 
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KEY OPERATION SEQUENCE 


Key Input Dispiay 


Remarks 


DATA = _ 


DELETE DATA = 


DELETE DATA=_ 


DELETE DATA = 


(C ] is used when the 
data has been input and the 
histogram is wanted 


Input the frequency of ‘ * " 


Output the data number, 
mean value, and standard 
deviation after the histogram 
have been printed 
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Finished 


FLOWCHART 


Frequency of one 
asterisk () 


Scale unit size 


Initial setting 
Data input 


Frequency countup, 
statistical 
processing 


Frame and sales 
printout 


360 
Frequency = 0 
N 


Making a character 
line corresponding 
to the frequency 


Character 
line with 
frequency = 0 


Frequency, 
character line 


Delete data input 


Over deleted 
check 


Input number, 
mean value, 
standard deviation 


Over-delete check 


Frequency count- 
down, statistical 
processing 
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PROGRAM LIST 


1H:CLEAR + WAIT 188 

2@:PRINT "RANGE A =< D 
ATA =< BY’: INPUT "A= 
“tAs "BEB 

S@: INPUT ’SCALE UNIT SI 
2E="50 

49:C=B-AE= INT ¢C/D3 

BO: DIM DCEds BSC Bo *24 

TO:LPRINT “INPUT DATA” 

BB:K=1: WAIT O:F=8 

96: "A" USING = IF F2@ 
LET F=@: LPRINT °": 
LPRINT “INPUT DATA” 

166: %=-E99 

LIM: INPUT “DATA="5% 

L2Q21F CXS Ad+CK OBI=1 
GOTO 188 

1Z25:LPRINT "DATA= “sk 

13@:N= INT (¢k-ADDD 

L4G: DCNI=D¢N) +1 

LOGE URUtKE VEV+KeR 

168: K=K+1 

17H:G0TO 188 

260: "BY" USING = IF Fe>t 
LET F=i: LPRINT °°: 
LPRINT “DELETED DATA 


21: INPUT ’DELETE DATA=” 
aX 

25Q°1F CXCA+CKBI=1 
GOTO 216 

2355°LPRINT "## “SK 

24Q:N= INT €¢4-AD/D) 

250:1F DCN}-1<@ BEEP 2: 
WAIT = PRINT “*OVER-D 
ELETED CHECK” 

260: DCMI=DCNI-LEKSK-1 

2652 USU-RE YE¥—K*R 

27@:G0TO 218 

SOG: °C’F=2: WAIT 188 

3Q85:LPRINT °"’: LPRINT ”” 
: LPRINT “HISTOGRAM” 


31@:P=1: INPUT “x= “3P: 
LPRINT “**="%5P 

32@:LPRINT °” 

33Q@:LPRINT ° “3 USING "t 
HAMM’ SBS SePs LO*P ELS 
P 

34Q:LPRINT ” 
~--+----+---" 

345:H=A 

35@:FOR L=@ TOE 

368°IF DCL=@ GOTO 448 

37@:Q= INT CDCL)/P3: IF 
DCL) >Q4P LET Q=Q+1 

380:1F @>18 LET Q=18 

390: B$(@)=" pe 

4@G:FOR M=1 TO Q:B$¢Q)=B 
$CO)+"e"? NEXT M 

41Q°LPRINT USING “Baan 
$H3 "1 "5 
DCL) 

42@:LPRINT BS(@> 

434:G0TO 468 

44@:LPRINT USING “trann’ 
sH5 "1° 

45@:LPRINT ” { 

46@°H=H+D: NEXT L 

47@:LPRINT USING "RRaRt’ 
3B3 °+----+----+----+ 


480:LPRINT ’*: LPRINT °° 

SOO: W=U/C(K-1): USING 

S@5:LPRINT *NO. OF DATA= 
“IK L 

S1@:LPRINT *MEAN VALUE= 
"old 

S2@:LPRINT “STD. DEV.= ° 
iY C-Wablt¥/ (K-19) 

938: END 


953 
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MEMORY CONTENTS 


Lower bound 


Upper bound 


v 


Interval width 


Interval number 


Status flag 


I/O; TMIMIoO!oO;|o] \& 


Valid input data number 


Loop counter 


Loop counter 


Frequency of 1‘°* " 


Frequency in each small interval 
B$ (0) «21 For graph printout 


oO 
P 
pas 
ni 
aa 
U Sum of input data 
V rx;? 
Ww Mean value 
x Input data (x;) 
Y 
iz 
D (E) 
| BS (0) «21 | 
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Program Title: INTERSECTION BETWEEN CIRCLE AND 
STRAGHT LINE 


OVERVIEW 


The points of intersection between circles and straight lines in the X—Y plane 
are found. 


CONTENTS 
The 2 points of intersection between a circle and a straight line are P and Q. 


(Note) The angles are in degrees, minutes, and seconds and are to be input in 
the following way: 


123.1423 = 123 degrees 14 minutes 23 seconds. 


Ps OSSs, You 


INSTRUCTIONS 


1. If the straight line is determined by 2 points, (A J is used. 
If the line is determined by 1 point and 1 direction angle, (DEF|{ B_|is used. 


2. After the data are input, the:results are displayed. 


EXAMPLE 
X, =—50 
Yi= 0 


X, = 50 Xp =_0 
Y. = 100 .Ypoe$0 
Xo= 50 Xg= 50 
Yo= 50 Yg=100 


(50, 50) 


(Note) The coordinate values are 
accurate up to 5 decimal places. 
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KEY OPERATION SEQUENCE 
(when 2 points on the line are known) 


Key Input 


Display 


Remarks 


(DEF) (A } 


50 


0.0000 


49.9999 


: 


(Xp, Vp) 


50.0000 


100.0000 


(xQ, YQ) 


Remarks 


0.0000 


49.9999 


50.0000 


42 


100.0000 


FLOWCHART 


If 2 points are If 1 point and 1 
known direction angle 
are known 


500 


W=./ (Xk X-YX*Y) 
X=ACS (X/W) 


RETURN 


Input direction 


600 


Subroutine for 
finding the X—Y 


angle a 
Input x 
L Me H=DEGH 
a | 
X=F-—D 
Y=G-E 
500 


K=W>SIN (X—H) 
L=ACS(K/C) 
M=H—90—L;N=H—90+L 


Subroutine for finding 
the X—Y coordinates 


40 
Display of X—Y 
coordinates 
50 


1 


1 


Subroutine for finding 
the X—Y coordinates 


Display of X—Y 
values of point Q 


coordinates 


O 
p 


A+CXCOSM 
B+C¥SINM 


RETURN 
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PROGRAM LIST MEMORY CONTENTS 


° 


° 


x|<|x</D|</|x 


ivf 


=< 


iS) 


RY Tle Ze 


LGB K=We SIN €X-H) 

@2L= ACS (KO 

@2M=H-99-L 3 N=H-99+ 

BiG05UB 684 

@:PRINT USING "tanta. 
SERB SPs yOrP 

15G:M=N: GOSUB 608 

L6Q:PRINT "Q:"503P 

i7@:END 

SHBs WaT CX#R+Y RY} 

SiMtk= ACS CxvWo: IF yea 

LET x=36a-x 

328: RETURN 

6H8:0=A+C* COS M:P=R+Cx 

SIN M: RETURN 


Cel aot ae ee 
UA be Oh 


335 


N] </ X} BS) </ C} A) @ BD) Of PP} Of 2] Sf r-] Ale} -| zlal al mlolol als 
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Program Title: A<> Y CONVERSIONS 


OVERVIEW 


The AC impendances of the A connection and the Y connection both undergo 
equivalent value conversions. 
This program can also be applied with direct current resistances. 


CONTENTS 
The impedence Z is expressed as a complex number, therefore special calcula- 
tions must be carried out. 


1) A> Y conversion 
Zi, > Z, 


7. = 

= [9] 

== [9] B= 242,42; 
4 5 Z;= Rt j X; 

7, a2 Ss 

z R: resistance 


X : reactance 


(Note) In the case of direct 


Be . 
2) Y > A conversion current the reactance 


, A h i f 
Z 22> (9) as an input value o 
Zz. 0. 
dy => [2] At BSD th y-F4 DB, 
: Zq=RatiXa 
Ly 5 [Q] R : resistance 
" X : reactance 
INSTRUCTIONS 


A: starts the A — Y conversion program and (B |starts the 


Y >A conversion program. 


2. When the various resistance and reactance values are input the corresponding 
conversion values are output. 
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EXAMPLE 


1) The following A_ connectin is converted to the equivalent value for the Y 


connection. : 
Ry =5 R, =6 R3 =9 
Zit x! =3 Bey aay Bets 


calculations give 


Z, = 1.76 — 0.13; 
Z, = 3.10 — 0.33; 
Z, = 2.09 + 1.97j 


2) The following Y connection is converted to the equivalent value for the A 


connection. 
R,=8 R, =9 R, =7 
L ¢ Z; b Z 
ax! 23 cee fig =a 


calculations give 


Z, = 14.97 + 16.65; 
Z, = 23.25 —9.21j 
£5 = 26.97 —0.97 


PRINTED OUTPUTS 


#1 R= 5 R= 2 

Zi “= 3 k= F 

22 R= 6 R= 9 

73 v= -3 v= -5 

23 R= 3 R= 7 

73 ¥= 5 we 6 

23 4= 5 H= 6 

ZA ee 
R= 1.76146739 4,97169811 
w= -1,2844¢H3665E-81 6.6589434 
eB Mee A ady: 
= 3, 10891743 f= 23, 24705954 
= 4 - = Rhee. ol 211764695 
R= -3,.3827592299E-61 ee” Ene Cie 
of z3 

Se ee ere R= 

= 2?.691743119 Ve 

= {.972477863 
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— °° 


KEY OPERATION SEQUENCE A~Y Conversion 


Display 


Remarks 


Waiting for the Z1 
resistance to be input 


Printing of the 21 
registance and waiting for 
the Z1 reactance input 


Printing of the 21 
resistance and waiting for 
the Z2 resistance input 


Printing of the Z2 
resistance and waiting for 
the Z2 reactance input 


Printing of the Z2 
resistance and waiting for 
the Z3 resistance input 


Printing of the Z3 
resistance and waiting for 
the Z3 reactance input 


Display 


Printing of the Z3 
resistance and printing of 
the ZA, ZB, ZC resistance 
and reactance. 


Remarks 


Waiting for the ZA 
resistance to be input 


Printing of the ZA 
resistance and waiting for 
the ZA reactance input 


ENTER 


ENTER 


ENTER 


Printing of the ZA 
reactance and waiting for 
the ZB resistance input 


Printing of the ZB 
resistance and waiting for 
the ZB reactance input 


ENTER 


Printing of the ZB 
reactance and waiting for 
the ZC resistance input 


Printing of the ZC 
resistance and waiting for 
the ZC reactance input 


ENTER 
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Printing of the ZC 
reactance and printing of 
the Z1, Z2, Z3 resistance 
and reactance. 


FLOWCHART 


Z1(R, X) 
Input Z2(R, X) 
Z3(R, X) 


Z1 (R, X) 
Output Z2 (R, X) 
Z3 (R, X) 


A subroutine to find 
the coor-G yates 


Oi 


A subroutine to 
find ACS 


A subroutine to 
find ACS 


X=B* D/H:Y=C+E—I 

X=D*F/H:Y=E+G-I 

X=B*F/H:Y=0+G- 
Find X, Y 


ZA(R, X) 
Output ZB(R, X) 
ZC(R, X) 


ZA(R, X) 
Input ZB (R, X) 
ZC (R, X) 


ZA(R, X) 
Output ZB (R, X) 
ZC (R,X) 


A subroutine to 
find ACS 


H=B*D:1=C+E 
X=X+H*COSI 
Y=Y+H*SINI 


H=B*F:1=C+G 
X=X+H*COSI 
Y=Y+H*SINI 


H=D*F:1=E+G 
X=X+H* COSI 
Y=Y+H*SINI 


A subroutine to 
find ACS 


X=H/B: Y=I—C 
J=X* COSY 
K=X*SINY 


X=H/D:Y=I-E 
L=x*COSY 
M=X *SINY 


X=H/F:Y=I-G 
N=X* COSY 
O=X* SINY 


Z1(R, X) 
Output Z2(R, X) 
Z3(R, X) 
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A subroutine to find 
the coordinates 
(S$; T) 


RETURN 


A subroutine 
to find ACS 


U=/" (X*X+Y*Y) 
V=ACS(X/V) 


N 


RETURN 


A subroutine to 
find R, X 


U=X * COSY 
V=X* SIN Y 


RETURN 


PROGRAM LIST 


Lai "A*ST=a:S=a: DEGREE 

2a eoee "21 R="sRi 
bPRINT wiZlak= ns 

STRE & 

PIMPUT "21 4="9 7% 

LPRINT “21 4= "5 

STRS ¥ 


urd 
A] 


44:G05UB 488 
S8:G0SUB 358 

6H: BSI Cs 
TG:INPUT "22 R="s Ke 


LPRINT "22 R= "3 
STRS & 
INPUT "2 
LPRINT "2 

STRS 
?GOSUB 488 
*GOSUB 358 
DSUSE=¥ 
INPUT *2 


on 
me 


Poor Eo 
A] 


ee et eet 
om mo 


STRE # 


STRE 4 
14H:G505UB 488 
i58:G0SUB 358 
i6asFaU:G=¥ 
L782 k=5: 7ST 
180:G0SUB 350 
198:H=U:T=¥ 
ZHO2 X=B4a D-H: Y=C+E-T: 

GOSUB 454 
Z21@:J=U:K=¥ 
228: X=D4eF 7H: Y=E+G-] 

i) 


238:G0SUB 458 

2402LeUimM=¥ 

2582 A=BeP/Ht Y=C+5-1 

260:505UB 458 

270:N=U:0=¥ 

286:USING = LPRINT *ZA’: 
LPRINT *R= °s STRS J 
+ LPRINT "X= °5 STRS 
K 


29H:LPRINT “2B°: LPRINT 
"R= "s STRS Ls 
LPRINT “w= "s STRS M 

SQQ:LPRINT “20°: LPRINT 

“R= ") STR Ni 

LPRINT “R= "s STR# O 

>END 

USL CRaR ETRY 

s¥= ACS Cs-U9 

BIF Be LET ¥=-¥ 

ee 

p 


ce oc 


Use COS Yiv=x* SIN 


SLB: DEGREE = INPUT “ZA R 
=H"set LPRINT “ZA R= 


") STRS & 


STRE & 
SHB TNPUT "2 
LPRINT “z 
STRS ¥ 
TH:GOSUB 35 
Hi D=U:E=¥ 
SQ:THPUT “20 Re“: 
LPRINT “20 R= "3 
STRE & 


STRS 
618:G0SUB 3548 
620:F=U: a 
636: X=0:' 
nig: sono 
656: e=K+H* COS I 
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668: 7=7+H* SIN I 
67T@SH=B*eF? T=C+G 
B88: 4=K+H* COS I 
B9G:Y="+H* SIN I 
TiBSH=DeF 

Tei T=E+G 
T3HiR=K+H* COS 1 
T4hiV=ay+He SIN I 
TIBIGOSUB 358 


778! X=H/ Bt Y=1-C 


t 
TSG: J=4% COS Yik=%e SIN 


t 


aa* COS Yr0=K* SIN 


LPRINT 


STR i 
LPRINT 


S6G:LPRINT "ZI": 
R= °s" Stes Ls 
LPRINT "X= "5 
STOILPRINT "22": 
igo 
LPR! 
B802LPR 
ie 
LPR 
S90: END 
1876 


MEMORY CONTENTS 


4 -— Y Conversion 


Y > A Conversion 


Re (Zc) 


Xe (Ze) 
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Program Title: CLOTHOID CURVE 


OVERVIEW 
This program will assist in finding the various elements of clothoid curves used, 
for instance, in the designing of roads. 


CONTENTS 
For clothoid curves, A, R or A, L are input to find X, Y. 


AZ 
i= 
R 
A 
Le, 
R 
14 18 p}2 
X= Al(1 + 
( 40 3456 599040 ) 
3 4 8 12 
re A AO a 
6 56 7040 1612800 
Tangent angle 7 = = x = XM=X-—-Rsinr 6= tant 
4 TL = X-Y cot r 


TK=Y-cosect SC=Y->cosec 6 


Amount of movement 


AR=Y+Rcost—R 


INSTRUCTIONS 


i: (A ] : when the parameters and the radius of the clothoid curve are 
known, : when the parameters of the clothoid curve and the 
curve length are known. 


2. After inputting the data, the elements of the clothoid curve are output on 
the printer. 
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EXAMPLE 


A= 100 X = 49.9219 XM = 24.9869 m 
R=200m Y = 2.081 TL =33.3606 m 
L= 50 t = 7°09'43"" AR = 0.5205 m 
SC = 49.9652 te ale eh 6 
TK = 16.6915 


(Note) The distance is rounded off at the 5th digit. 


PRINTED OUTPUTS 


A=186 

R=280 

L= 78. 8088 
A= 49.9219 
Y= 2.4318 
T= 7.8943 
M= 24.9369 
TL= 33.3686 
TK= 16.6915 
DR= 8.5285 
I= e215) 
5C= 49,9652 


KEY OPERATION SEQUENCE 


Key Input 


[DEF] (A } 


rst 
u 


egy 
iT] 


AAHk AS 
r 
" 


Las] 
a eae 
" 


ow to 


oe || 


Display 


bo 


co 


fa 
—J bo a iS 


te Le bo 


am 


= 
mm 
= 


ba 


Do 6 
Wo wo 


OF a a a) 
fe bt 
Led 


Dm i 
oo 


Pony 


Led fo 
. >, 
hoon om Le 


ed Pek uate es 


ne me 
bo led On om 


7a) 
wo 
iT 


Remarks 


Waiting for parameters to be 
input 


Printing the parameters and 
waiting for the input of the 
radius of the end of the 
clothoid curve. 


Key Input 


Display 


Printing the radius and 
printing the clothoid 
elements. 


Remarks 
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Waiting for the parameters 
to be input 


Printing the parameters and 
waiting for the curve length 
to be input 


Printing the curve length 
and printing of the clothoid 
elements 


FLOWCHART 


Printed out A 
(parameter) 


Printed output R 
(radius of end of 
clothoid) 


X=A*C*(1—C*4/40+ 
CA8/3456—C*12/599040) 
Y=A *C43/6 * (1—C*4/56+ 
C48/7040—C*12/161200) 


Printed output X, Y 
(X, Y coordinates of the 
end of the clothoid curve) 


130 


Printed output T 
(tangent line angle) 


Printed output L 
(curve Llength) 


Printed output R 
(radius of end 
of clothoid) 
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170 
'F=Y/SINC 


Printed output TK 


H = Y+B*COS C—B 


Printed output AR 
(amount of movement) 
190 


|= ATN(Y/X) 
Kat 


180 


200 
Printed output D 
(polar angle) 
210 


J=Y/SIN I 


Printed output SC 
(distance between the 
starting point and a point 
P on the clothoid curve) 


K = DMS(K+.00014) 


RETURN 


i 


PROGRAM LIST 


"Le 79D 
: LPRINT "L="3 STR$ 
DiBAKA/D? GOTO 68 

SQHINPUT "R= "4B: 
LPRINT "R="s STRS B 

6H:0=A/B: D=AxAYB 

THIUSING "Rtaaanes. ann 


4Q:1F L=@ INPUT 


“R= ¥S 
B: GOTO 168 

SB:LPRINT "L= "5D 

1H8: R=AeC#e 6 1-044 4dQ4Ceg 
3456-0412/599840) 

LiBs Y=AeCeS/6"¢1-C4756+ 
Cag-7H40-C412/161200 
} 


L2Q:LPRINT “X= "SK: 
LPRINT "Y= "s¥ 

136: C=De9G/B/ Ni K=C: 
GOSUB 508 

i4Q:LPRINT "T= “SK 

15@:E=%-B* SIN C2 LPRINT 
"AME" TE 

168:G=K-Y" TAN C2 LPRINT 
"TLE"SG 

17@:F=¥* SIN C? LPRINT ” 
TK="3F 


188:H=Y¥+B* COS C-B: 
LPRINT “DR="3H 

19@:1= ATN CY/X2K=I5 
GOSUB 588 

20G:LPRINT "D= “sK 

218: J=Y¥/ SIN I: LPRINT ” 
sc="sJ 

226:END 

SOG:K= DMS (K+. 80014): 
RETURN 
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MEMORY CONTENTS 


B 
Cc 
D 


E XM 

TK 
H AR 
a sc 
L 


Discriminate 
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Program Title: CROSS-FOOTING 


LEAVE ARRANGING THE DATA TO the computer! 
Unless data is arranged and analyzed it is nothing more than a group of numbers. 
This program is for those who find this cumbersome. This program will add 
data, giving totals or grand totals as well as giving percentages. 
How the results are read depends on your own. 


INSTRUCTIONS 


Percentage 


Percentage 


As shown in the above figure the totals, percentages, and grand total are sought. The 
column x row limit is 36 and the column limits are the following: 


Vertical total: up to 10 columns 

Horizontal total: up to 10 columns 

Percentage: up to 3 columns, up to 2 decimal places 

Grand total: up to 10 columns 
The number of columns and rows, as well as the data are input. 
The data is revised 


The totals, percentages, and grand total are printed. 


THE CALCULATION 


: each vertical total 
Vertical percentage = (—————————— ) x 100 
grand total 


( each horizontal total ) x 100 


grand total 


Horizontal percentage 


percentage is rounded off at the third decimal place. 
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EXAMPLE 


This is an example with 5 rows and 5 columns which finds the vertical total, 
horizontal total, grand total and the percentages. 


PRINTED OUTPUTS 


* TATA LIST * * TOTAL PERCENTAGE x 

Ato ods 35 it POSITION TTL: & 
ACP ZI BS  weeee +----------- +------ 
AC ts 33s 1 H 1: 25: 19.53 
AC i» 435 2 H 2: 33: 25.78 
AC ols 532 l H 3: oe cera 
AC 2s {he 4 H 4: ZH: 23.43 
At 2s 23= 4 H 5: 23: 19,53 
Ac 2, 332 2 Vv 1: id: 18,93 
Ae 2s 432 4 iI 2: 22e T7048 
AC 2s Sos 5 v 3° 27! 21.89 
At 3s 1s 5 ¥ 4: Sli ehe al 
AC 3. 2s 3 v 5: 34: 26.56 
AC 35, 33= 5 Reena nnn ene ------------ 
AC 3s 432 6 * GOTTL * 

AC 35s 535 a 123 
AC 4061s 6 

AC 4s 2)= 5 

AC 4; 3)= 4 

AC 4s 455 3 

AC 4s 7 

AC 53s 1)= 3 

AC 3s 235 7 

At 5s 3)= | 

AC Ss 43= 1a 

AC 5s 53s 3 
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KEY OPERATION SEQUENCE 


Key Input Display 


VERTICAL = 


ENTER 


> 


REVISION POSITION = 


Print calculation results 


TAPE SET UP! 


DATA IN=1/OUT=2? 


FLOWCHART 
calculation 


Horizontal total 
calculation 


290 
330 


350 
Horizontal percentage 
calculation 


Horizontal total and “aa 
percentage 
410 
Vertical total 
calculation 
450 
Vertical percentage 
calculation 
460 


Vertical total and 
percentage 


50 


=1TOA ee 
J=1TOB poe 1=@TOA-A 


13 
200 
Present data 


Grand total 


505 


o 


210 


220 
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PROGRAM LIST 


1@: "A": CLEAR : WAIT : 
USING : LPRINT ** DA 
TA LIST *” 
2Q: INPUT “VERTICAL="3A 
3@: INPUT “HORIZONTAL="3 
B 
4Q:DIM BCA-1sB-1) 
S@:FOR I=1 TO A 
6@:FOR J=1 TO B 
TH:PAUSE "AC’s USING *S 
BITE Ts ot 
BQ: INPUT BCI-1sJ-1) 
SB:LPRINT "AC’S USING ” 
29: Sat ee ee ee 
USING “RtRangnngg’s B 
(Tata JL 
1@@:NEXT J: NEXT I 
118:G0TO 345 
120: "B°: WAIT © USING § 
LPRINT °* REVISED DA 
TA *” 
130: INPUT "REVISION POSI 
TION="3C$2Z= LEN C$: 
4$= RIGHTS (C$ »2-2): 
Y= VAL R$: GOTO 145 
144:G0TO 138 
145:1F Y<1 GOTO 138 
150:W=Z- LEN STR$ ¥-3 
1oWiIF Wea GOTO 130 
1L7Q21F MIDS (C$s2-Ws Lodo 
"ys" LET W=W-1: GOTO 
168 
18G:¥$= RICHT$ (C$sWEU= 
VAL ¥$: IF U<1 GOTO 
134 
Z2OB:PAUSE BCY-1sU-1) 
2162 INPUT BéY-1sU-13 
228:LPRINT “ACS USING ” 
RAM Ys se’ sUsr oars 
USING “RURgRtRtER’s B 
CY¥-1sU-1) 
230:G0TO 130 
240:°C*’: WAIT = USING : 
LPRINT °* TOTAL PERC 


ENTAGE *° 
25@:LPRINT “POSITION 
TTL: 4° 
260:LPRINT *----- Gieaaas 
----- +------" 
278: D=@ 


308: D=D+BC1Is I> 
3iB:NEXT J: NEXT I 


320:FOR J=@ TO B-1 

330:E=8 

34Q:FOR I=8 TO A-1 

35@:E=E+BC1sJ> 

36@:NEXT I 

376:F= INT (E/D*E5+8,5)/ 
E3 

38@:LPRINT °H’s USING “R 
MRMB’ST+1s%9"s USING 
"HUMNMERERER SES 82's 
USING "Set. ge’5r 

39Q:NEXT J 

46@:FOR I=@ TO A-1 

410:6=08 

426:FOR J=0 TO B-1 

430:G=G+BCIsJ3 

44Q:NEXT J 

450:H= INT (G/D*E5+8,5)/ 
E3 

460:LPRINT “¥*s USING “2 
RRM seis %2"s USING 
"NOMNNNTEAAA Gs ees 
USING “SUR. 0R°SH 

47@:NEXT I ; 

48@:LPRINT *------------ 

49@:LPRINT ** GTTL *° 

500:LPRINT USING “RRnaRT 
nggnn’ sD 

5e@5:°xX": LPRINT °": 
LPRINT °”: LPRINT °” 

51@:END 

520:°Z": PAUSE “TAPE SET 

UPI” 

53@: INPUT “DATA IN=1/00T 
=2?°3K: IF (K=L)3+¢K= 
2321 GOTO 558 

54@: BEEP 3: GOTO 539 

559@:1F K=2 PRINT 8°CF’SA 
»B: PRINT &*CF-DATA” 
3BC*): END 

56@:CLEAR = INPUT #°CF*S 
AsB: DIM BCA-1sB-1): 
INPUT 2*°CF-DATA’S B(x 
> 

S70: END 


1121 
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MEMORY CONTENTS 


Number of columns 


Number of rows 


Revision location 


Grand total 


Horizontal total 


Horizontal percentage 


Vertical total 


Z| Vertical percentage 


v 


lisa 


$a 


Horizontal revision location 


J 


Vertical revision location 


A 
B 
Cc 
D 
E 
F 
G 
H 
| 
J 
K 
L 
M 
N 
O 
P 
Q 
R 
iS) 
T 
U 
Vv 
Ww 
X 
ye 
2 


v 


B$(N—1) 
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NUMBER OF DAYS CALCULATION 


Program Title: 


OVERVIEW 
How many days has it been since you were born? 
This program is convenient for answering such questions. 
day, this program will output the number of days that have passed since that 


By setting a certain 


day. 


INSTRUCTIONS 

(DEF) [ A | 
BASE YEAR ENTER 
MONTH ENTER 
DAY [ENTER] 
TARGET YEAR _ [ENTER] 
MONTH _ [ENTER] 
DAY ENTER 


To end the program, type in Z | in place of the year. 


EXAMPLE 


from 1976 year 10 month 5 day 
to 1982 year 6 month 4 day : 2068 days 
to 1985 year 1 month 1 day : 3010 days 
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KEY OPERATION SEQUENCE 


Key Input 


Display 


Remarks 


START YEAR = 


MONTH = 


Base date 1976 year 10 
month 5 day input 


DAY = 


END YEAR 


MONTH = 


Target date 1982 year 6 
month 4 day input 


DAY = 


DAYS = 


END YEAR 


MONTH = 


Target date 1985 year 1 
month 1 day input 


DAY = 


DAYS = 


END YEAR = 


> 
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FLOWCHART 


Base year, 
month, day 


Target year, 
month, day 


690 


Calculation of 
sum of days 


63 


Calculation of 
sum of days 


520 | 


1 = INT (365.25 * H) 
+ INT(30.6*G) +1 


530 


1=1—INT (H/100) 
+ INT (H/400) — 
306 — 122 


RETURN 


PROGRAM LIST MEMORY CONTENTS 


Lae" A" 
2G:INPUT "START YEARS": A 
Re MONTH="3S."DGy="4 B 
T ra 
SH:INPUT “ENT YEAQR="sF D 
“MONTHE "$s °DAY=" sid. E 
SH:H=R : 5 : 
64:G=S:1=T ear (after calculation) 
TH:GOSUB 5aa sd 
sh: J=] H 
1Ha:H=F | 
il:G=¥: [=u J 
L26:G05UB Saa K 
138: 8=I-J L 
T4H:WAIT = USING 2 PRINT 
"TAYS= "+ ¥ i 
{Sa:GoToO 3a N 
SMBSIF G-33=A LET G=54+1: ie) 
GOTO S24 P 
314:6=5+13!H=H-1 Q 
S2H:T= INT (365. 254H3+ R Sui oan 
Ss te S Month of base date 
SSH:T=I- INT Che {Aa i+ 
INT (H/4003-306-129: IF Day of base date 
RETURN U 
BHbE "2": ENT Vv Month of target date 
w Day of target date 
278 x Number of days 
Y 
Z 


Program Title: SORTING 


OVERVIEW 


It takes a great amount of time to arrange and rewrite lists of names or results 
into a different order. This program will solve all those troublesome chores, 
speeding up the handling of office data. 


INSTRUCTION 


The data must first be input whether it is characters or numbers. 

Then the number of data entries involved has to be input. Then the kind of the 
order has to be input: whether the characters or numbers should be in increas- 
ing order or decreasing order. After the data has been input the results are 
printed. 


CONTENTS 
Input @ Select either characters or numbers 
@ Number of data entries (110 numbers or 53 characters) 
® Selection of increasing order or decreasing order (for characters, the 
ASCII code is followed.) 
®@ Selection between characters or numbers 


Output @ Data that has been sorted 


(Note) The length of characters is limited to 16. 


EXAMPLE 

Number Character 

Number of data entries is 7 Number of data entries is 5 

Increasing order Increasing order 
122 CCR 
123 ABCDE 
1 Data 4RGHI 

Data 5123456 KTV 

1234 CCK 
11 
12345 
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PRINTED OUTPUTS 


ABCDE 1. 
CCK iL» 
CCR 122, 
KTV 125% 
RGHI 1234, 
12345, 

123456. 


KEY OPERATION SEQUENCE 
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FLOWCHART 


10 [Selection of characters 
or numbers 


Number of 
data entries 


Selection of increasing 
order or decreasing 
order 
ry 


30 


C$(0) = B$(C) 
B$iC)=B$(D) 
B$(D)=C$(@) 


B$(C) <B$(D)> 


@TON-2 


230 Preparing.dimension 
memory 


290 


ncreasing 
order, 
D=JTON-1 


B(C) <B(D}> 


{ 


P = B(C) 
B(C) =B(D) 
B(D)=B(C) 
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PROGRAM LIST 


18:*’A”’: CLEAR = INPUT ” 35@:NEXT D 
CHARACTER=1/NUMBER=2 36B8:NERT C 
275M 37@:FOR E=@ TO N-1 
LSSIF CM=1)+¢CM=29<>1 38@:LPRINT BCE) 
GOTO 18 39B82NEXT E 
2@: INPUT “NO. OF DATA=” 4Q0:LPRINT °*: LPRINT °” 
3N > LPRINT °": END 
3@: INPUT “INCREASE=1/DE 
CREASE=27°50 361 
3581F €O0=19+¢€0=259¢>1 
GOTO 34 MEMORY CONTENTS 


4Q:1F M=2 GOTO 238 
S@:DIM BSCN-1)50$(O) 
60:FOR B=@8 TO N-1 
TOSINPUT "X$="5 BSCBD 
BONEXT B 
96:FOR C=@ TO N-2 
100: J=C+1 
118:FOR D=J TO N-1 
12@:IF O=2 GOTO 158 
130:1F BS(C)>BS(D) GOTO 
166 
148:G0TO 176 
15Q:1F BS(C)<BS(D) GOTO 
168 
155:GOTO 170 
16B2C$CB=BS( C8 BS(C)=BS 
CDS BS¢DI=C$¢8) 
17O2NEXT D 
18@2NEXT C 
190:FOR E=6 TO N-1 
260:LPRINT BS<E> 
21Q:NEXT E 
228:G0TO 408 
230:DIM BCN-1) 
24@:FOR B=8 TO N-1 
258: INPUT "K="sBCB) 
268:NEXT B 
27@:FOR C=6 TO N-2 
280: J=C+1 
298°FOR D=J TO N-1 
S00: 1F O=2 GOTO 330 
31iG:1F BCC)>BCD) GOTO 34 
Y) 
328:60T0 350 
330:1F BCC < BCD) GOTO 34 
) 
335:G0T0 356 
348:P=BCC)BCCO=BCDE BCD 
»=P 


Pee ee eee | 
a 
pp | Loop counter SS 
Pe | tecp counter ——SSCSC*” 
(ri oo A wer cs 
ir a ar 
snl Se eT 

Pa CO 

ae | |_| 
E 


J 


= 


K 


Character and number selection 


=n 
| 
ei ee 
Number of data 
a 
ik sess 
hia trenl 
es 
| Ss 


Increasing or decreasing order selection 


For number sorting 


: =—— 
a 


BS(N-1) 
C$(@) For character sorting 


B(N—1) | Number value data 


68 


Program Title: THE LOAN LIMIT, CALCULATION OF THE 
NUMBER OF INSTALLMENTS 


OVERVIEW 


Never borrow more than you can afford. 
You will be able to calculate how much you are able to borrow and in how 
many installments you will be able to repay. Be realistic. 


INSTRUCTIONS 

(DEF)(_A_]; The Size of the loan is calculated depending on your repayment 
ability (How much you have to repay and in how many installments.) 

(DEF|_B ]; The number of installements is calculated from the size of the loan 
and your ability to repay the loan. 


CONTENTS (calculation) 


Calculation of limit of Calculation of number 
loan size installments 
Monthly installment amount Loan size (total amount: A) 
(amount: a) 
Number of installments Monthly installment amount 
(n times) (amount: a) 
Interest rate (r%) Interest rate (r%) 
Loan size Number of installments 
n 
Loan size limit = a (Rien dhs Number of installments 
(R —1)R" 
. _ log a — log (a— A (R — 1)) 
(where R= 1 +00) ion 
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EXAMPLE 


UE Calculation of the limit on the size of the loan when the repayment 
period is 8 years and the monthly installments are 1,500,000 at an 
annual interest rate of 12%. 


Yearly payment 1500000 x 12 


Number of installments = 8 input 
Interest rate = 12% 
2. Calculation of how many months it will take to repay the loan if you 


borrowed 3,000,000 at an annual interest rate of 12% and were capable 
of paying 100,000 back per month. 


Loan size = 3000000 
Monthly installment amount = 100000 input 
Interest rate = 12/12% 


PRINTED OUTPUTS 


NO. OF INSTALLMENT= 
8. AG 
INSTALLMENT AMOUNT= 
13000008 
INTEREST RATE= 
12.008 
LOAN SIZE LIMIT= 
89417515 


LOAN SIZE LIMIT= 
2aanGae 

INSTALLMENT AMOUNT= 

14naae 
INTEREST RATE= 

1.408 
NO. OF INSTALLMENT= 

35.84 
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KEY OPERATION SEQUENCE 


Key Input Display Remarks 


NO. OF INSTALLMENT = 


INSTALLMENT AMOUNT = | Number of installments 


INTEREST RATE = Installment amount 


Interest rate, loan size limit 


LOAN SIZE LIMIT = 


INSTALLMENT AMOUNT = | Loan size limit 


INTEREST RATE = Installment amount 


Interest rate, number of 
12/12 ENTER) |) installments 
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FLOWCHART 


10 


20 
Number of 
installments 
Number of 
installments 


common input 
output 
50 


Calculation of 
loan size limit 


400 
Common input 
and output 
Installment 
amount 


410 


Installment 
amount 


420 


Interest rate 


430 


Interest rate 


RETURN 
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200 


210 


220 


Loan size limit 


230 
common input 
output 
40 


Calculation of 
number of 
installments 


260 


Number of 
installments 


PROGRAM LIST MEMORY CONTENTS 
1A:"a’: CLEAR 
20: INPUT *NO. OF INSTAL 
LMENT="3A 
3Q:LPRINT “NO. OF INSTA 
LLMENT=": LPRINT 
USING "tag. nn’sa 
40:GOSUB 400 
5: J=(1+C/100)6A 
6O:D= INT (CI-1)#B/ (IHC 
/108)) 
7@:LPRINT “LOAN SIZE LI 
MIT=": LPRINT USING 
"aRenteenne’s D 
8Q:LPRINT °%: LPRINT °° 
: LPRINT °": END 
200:"B*: CLEAR 
21@:INPUT “LOAN SIZE LIM 
IT="5D 
220:LPRINT “LOAN SIZE LI 
MIT=": LPRINT USING 
*aunntgnane’ sD 
23@:GOSUB 400 
240: K=B/(B-D*C/190) 
250:A= LOG Kv LOG ¢1+C/t 
aa) 
26@:LPRINT “NO. OF INSTA 
LLMENT=": LPRINT 
USING "ttm. mn’sa 
27@:LPRINT °: LPRINT °° 
: LPRINT °%: END 
4@@:INPUT “INSTALLMENT A 
MOUNT="3B 
41Q:LPRINT “INSTALLMENT 
AMOUNT=": LPRINT 
USING "tenuneneen’sB 
42@: INPUT “INTEREST RATE 
="4C 
43Q:LPRINT “INTEREST RAT 
E=": LPRINT USING ‘2 
BEN. aNR’SC 
440:RETURN 
450: END 


Number of installments 


Installment size 


Interest rate 


Loan size limit 


478 
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Program Title: TYPING PRACTICE 


OVERVIEW 
Quick key operation! 
How fast and accurate is your typing? 
If you practice with this program, it will make programming much easier for 
you. Improve your skill! 


CONTENTS (such as calculation contents) 


The number of characters (4 ~ 6) is randomly chosen. 
The character arrangement (A ~ Z) is done randomly. 
The allotted time depends on the number of characters and the grade level. 
3 is the shortest time allotment while 1 is the longest. 


INSTRUCTIONS 


After the buzzer sounds 4 to 6 characters will be displayed. You are to type 
in the same characters within the allotted time. 

If they are all correct, you get 10 coints. 

If more than half are correct, you get 5 points. 

After the allotted time is over, the next problem is displayed. The allotted time 
depends on the grade, which has three levels (1, 2, 3). 

3 is the shortest time allotment while 1 is the longest. 

Point competition is done within the same grade category. 

There are 10 problems, making the maximum score 100 points. 
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KEY OPERATION SEQUENCE 


Display 


Remarks 


GRADE (1, 2, 3)? 


Grade input 


YOUR — SCORE = 80 


After the 10 questions are 
answered the score is 
displayed 


YOUR SCORE IS BEST 


If your score is higher than 
the high score the guidance 
is displayed 


= 


HIGH—SCORE=80 


BWVS 


YOUR — SCORE = 60 


When you want to play in 
the same grade 


> 


75 


FLOWCHART 


N 
| Depending on 
grade and length 
( 


High score 


110 


40 Characters arranged 
according to random 
numbers 


Series of problem 
characters input 
character series 


After the loop has 
been processed 


87 N 
A$=A$+C$(E) 
90 


Points are counted 
depending on the number 
of correct answers 


Point become 
the high score 


igh score Y 
< Point 


76 


PROGRAM LIST 


19:°2": CLEAR : DIM Bsé 160: IF P?X LET K=P: WAIT 
53,0305): RANDOM 1@@: PRINT ’YOUR $cn 
LS: INPUT “GRADEC1s253)? RE IS BEST’ 
"SL: WAIT @ L7BZEND 
1T2IF CLeLi+e€La294¢L=3) 
31 THEN 15 475 
18:60T0 34 
Baiasimuwun-aaeoee MEMORY CONTENTS 
PAUSE “HIGH-SCORE="5 


> 
A 


v 
v 


Loop counter 


3H:FOR S=1 TO 16 

4Q:B= RND 4423: 7s=" "2 R= 
INT (B42) 

S@:FOR C=A TO B-1:Cse0) 

6B:D= RND 24: BSC C= 
CHRS (D+2403:57S=7S+ 
CHRS (D+2409: NEXT C 
SASS"? 

TA:BEER 33E=8: WAIT 3A: 
USING "&&28888" 
SB:FOR W=1 TO BetB/L: 
PRINT YSs” "TAS: 

IF E=B LET W=B*e2a/L: 
GOTO 1Aa 

B5:CHCEs= INKEYS = IF C 
$(E2="" THEN {aa 

BTSAS=AStCSCES 

98: E=E+1 

LB@:NEXT Wint=A 

116:FOR W=a TO B-1: IF B 
$CW=CSCW? LET D=N+1 

12@:NEXT Ws IF O¢=R THEN 


Loop counter 


B 
Cc 
D 
E 
F 
G 
H 
| 
J 
K 
1 
M 
N 
oO 
p 
Q 
R 
Ss 
+ 
U 
Vv 
Ww 
x 


15a 
13@:IF Q=R LET P=P+14: Loop counter 
6b0TO 156 High score 
144: P=P+5 


15@:NEXT 5S: USING © BEEP 
3: PAnse "YOUR-SCORE 
="3P 
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Program Title: BIORHYTHM (SEMI-GRAPHIC) 


OVERVIEW 
You input your name and date of birth, the biorhythm for any specified month 
will be printed. Watch out for those dangerous days. 


CONTENTS 
Input: name 
date of birth 


desired year, month 
The date of birth and the year, month to be analyzed are input in the 
western calender. 


Output: The biorhythm curve of the month to be analyzed is printed out using 
the characteres ‘’S’”’, ‘“K’’, and ““C”’. 


From the date of birth the biorhythm cycle for the physical is 23 days, for emo- 
tions 28 days, and for intellect 33 days. 


INSTRUCTIONS 


(A } initiates the program. Input the information in the following order: 
name, date of birth, year and month to be analyzed. After the above informa- 
tions are input the biorhytm is printed out using “’S’’, “K’’, and “C’”’. 


KEY OPERATION SEQUENCE 


ee 

et ap eae 
pened 

[efor 

ES ic - londi allot 

iat 

= 


28 DESIRED: YEAR = 


1982 MONTH = _ 
9 > 
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“S" = the physical 
“K'' = the emotional 


“SK” and ’C” are regarded as follows: 
“C’' = the intellectual 


(Remark) 


+ 


$e ee eee 


193259 


DESIRED YEARs MONTH 


ca 


PRINTED OUTPUT 


Od 


on 
Lan) 


- 


-~-----$------K--! 


KS 
--§--1 


va 


a ee 


. 


a 


~ 


~ 


{ 


-~-----K--+0 


i—— 
- 

—— 
* 


° 
7 


at 


r 
i 


-5------ 


y 
4 


“oO 


cet 


+5C 


ms 


t 


4 


bt 


uO 


28 
a 


3 


- 
a 

~ 
H 


= 
le 


+ CK 
---K-----1 


SK 
---------£ 


KS 


-K-§-----+------| 
----§-K--+-----0---1 


Fe ee ee a ee eae ee ee ee ee 


T 
+ 
r 
t 
- 
ir 
i 
T 
a 


FLOWCHART 


5 


Input 
name 
date of bith 


calculation 
of days from 
the slandard date 


Input 
expecting 
month 


60 


80 


calculation 
of days from 
the standard date 


110 
checking of 
leap year 


120 


number of days 
of the month 


initial setting 
for graphic 


multiplication 


number of 
days of the 
month 


calculation 
of location 


printing of 
row 


500 


calculation of 
days from the 
standard date 


number of total 
days from the 
standard date 


RETURN 


checking of 
leap year? 


600 


700 


leap year? 


N 


Y= 


) Y=1 
ye ed 
730 


RETURN 
number of days 
of the month 


Z=number of days 


RETURN 


construction 
of characters row 


800 


using dotted 
line 


820 


900 


a character is 
inserted in B$(6) 


RETURN 


920 
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PROGRAM LIST 


a: "A": CLEAR : DEGREE 
= LPRINT ’* 
1B: INPUT “NAME="sD$ 
20:LPRINT “NAME: "3 Ds 
3Q: INPUT "DATE OF BIRTH 
TYEAR="sUSs "MONTH="5 
Va" DAY="r 
Z5:FS= STRS ¥iGS= STRS 
W 
4Q:LPRINT “DATE OF BIRT 
Hi": LPRINT ” "aU 
See VS FSH GS 
38:G0SUB 508: B=x 
60: INPUT “DESIRED: YEAR= 
"TUSs *MONTH="S ¥i W=a 
6S:F$= STRS V 
7O:LPRINT “DESIRED YEAR 
y»MONTH?*: LPRINT ” 
"SUSS TTF S$ 
TO!LPRINT °” 
8G:G0SUB SAA: A=x 
190:C=A-B 
118:G0SUB 7aa 
126:505UB 848 
13@:D=C- INT (0/23 3%23 
14@:E=C- INT (C728)%23 
150:F=C- INT ¢C/33)433 
168: DIM BSc 2d *21 


170: B$(1)="1--------- +-- 
enema 5 
180:B$(2)="1 + 
i 
200:LPRINT ° - @ 
+" 


Z21@SLPRINT BS 1) 

215:FOR K=1 TO 2 

220:L=8: IF K=5% INT ¢Ke 
3) LET L=1 

235Q:1F L=1 LET BStmo=Bs¢ 
13: GOTO 254 

240: BS (BI =BSC2) 

256:6= SIN ¢CK+D9/25%368 
DEP$="5"2 GOSLB 9aB 


260:G= SIN CCK+E9 “2843568 
D:P$="K"? GOSUB 94a 

27O:G= SIN CCK+F9/334360 
22P$="C"? GOSUB 9B 

29@:LPRINT BSC@)s USING 
"EEE K 

S@H:NEXT K 

31B:LPRINT BS(1> 

S28: END 

346: T= VAL US 

J6Q:IF ¥e=3 LET GQ=TiR=¥+ 
1:S=W: GOTO 588 

S7GiQ=T-1LER=135+¥2 Sau 

J8OtX= INT (365. 25%*03+ 
INT €30.6*R9+5-122 

398: R%=4- INT (O/10G)+ 
INT (O/4@@) 

608: RETURN 

TOBIIF T<K>4e INT CT74) 
LET Y=@: RETURN 

TIBSIF Té>180*% INT (T/10 
4) LET Y=1: RETURN 

T2Q51F TK 340Q* INT (T7748 
@> LET Y=@: RETURN 

730: 7=1: RETURN 

BOGIIF (Y=4)+C¥=694+(¥=9) 
+(¥=11)=1 LET 2=38: 
RETURN 

B1B:1IF Y=2 LET Z2=28+': 
RETURN 

828: 2=31: RETURN 

900:N=11+ INT (8 ABS G) 
* SGN G 

DIO BSCOs= LEFTS (BS(O)s 
N-1)+P$+ RIGHTS (BS¢ 
@3s21-N) 

926: RETURN 


va] 
ca 
~J 


MEMORY CONTENTS 


aE he ig iets Li lalla 
me Sear 
eer Total number of days 


remaining days from a period, name 
Fj a Intellect 
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Program Title: SOFTLANDING GAME 


OVERVIEW 


This game involves landing a rocket, with only a limited amount of fuel, as softly 
as possible. The rocket is in free fall. The engine is used to slow down the free 
falling rocket. If ignition takes place too soon or too much fuel is used, then the 
rocket is thrust back out into space and becomes dust around the planet. 


If all the fuel is burned up, the rocket hits the planet and blows up. 


The aim is to land the rocket as softly as possible by controlling the engines 


while watching how much fuel is burned. 


CONTENTS 


Gravity is set to be 5 m/(unit time)’. 
If 5 units of fuel per a unit time are burnt, then gravity is offset. 


Equations 
H = Ho + Vot + —-at? H_: height Ho: 
. V_: speed Vo: 
V =Votat : eae! Or 
a : gravitational Fo: 
Vv? = V,’ + 2aH acceleration F 


: time 


t 
Ho = 500, Vo = —50, Fo = 200 Vo: initial speed 


initial height 
initial speed 
initial fuel 


: fuel burned 


The initial height, initial fuel level, and the wait time is stored in line 30 as data. 


By changing these values the above variables can be changed. 


INSTRUCTIONS 


1. It is started by pressing A]. Press (0 |] ~ (9 | keys to adjust the 


amount of fuel used to land the rocket. 
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KEY OPERATION SEQUENCE 


Key Input Display Remarks 


(A } 


*KKKSTART ** * 


Keys|_O | ia (9 } 


designate fuel burned | H: 500 S: —5@ F: 200 C:0 


in unit time 


[9] | H: 452 s: -46 F: 191 C:9 


a 


Repeat 


(If successful) 


SUCCESS !! 


FUEL LEFT: F= 15 


(If failed) 


oe BYE!! 


REPLAY (Y/N)? Wait for input on whether 
h you wish to play again 


Play again 


CN J 


End 
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FLOWCHART 


10 


Initial setup | 


50 


70 


Screen display 
0 


8 


Any fuel left? 
N 


90 


INKEY$ 
D$ 


100 
Key not pressed C=A 
130 
Burned fuel 
exceeds fuel C=F 


left 


140 


Claculation of the 
rocket’s height 
and speed 


150 


rocket 


higher than 
ground level? 


160 


Speed and 
height under 
their limits? 


A N 


GOOD BYE!! 


200 


SUCCESS!! 


Want to play 
again? 


N 


210 
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PROGRAM LIST 


ra oe "650s "FUE 
e’HETGHT="65a 


4A: RESTORE 

54:READ BSsWs BSsFs BSsH 

6a:WAIT wl 

TA:PRINT USING "Rttt's” 
HivsHe’ Sit asa’ Fave 

rome STRE oC 

Ba:IF Fé=a GOTO 178 

9: BEEP 1:DS= INKEYS 

1@Q:1F Ds="" LET CsA: 


5O0TN 138A 

1igsC= YALL $s 

126:A=C 

{3a:1F C3F LET C=F 

14a: F=F-C0: ¥=C0-StH=H4+S4X 7 
215s5+ 

15@:1IF H>a GOTO TA 

16Q:1F ¢ ABS HS y+¢ ARS 
$<5)=2 BEEP 5: PRINT 
"SURCESS!Hi*’: GOTO 138 
a 


@:BEEP 3: PRINT "GOOD 
BYE! !": GOTO 19” 
1SQ:WAIT 154: PRINT 
USING "Ritanes? FUEL L 


EFT iF=*sF 

19B:WAIT SA: PRINT “REPL 
AY CYAN) PE 2S= 
INKEYS 


2OBITF C2S="¥ "340 28="9N" 5 
ri GOTO 198 


210:IF Z$="7" GOTO 18 
2201 END 
432 


MEMORY CONTENTS 


Fuel burned 


Fuel burned 


Initial fuel level, fuel left 


| Initial height, height 


Be 


a| = 


| 


D/O; VSO; 2\/SirjA 


Wait time 


Vv 


<| x|/sSl<|/ C/A ail 


v 
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Program Title: MEMORY CHECKER 


OVERVIEW 
Three line with a total of 18 characters will be displayed on the screen for 


approx. 5 seconds. 
Your memory will be tested by how well you input the above line after it has 


disappeared. 


CONTENTS 


The following type of line will be displayed for approx. 5 seconds. There are 
2 characters and 4 numbers in each set. 


haracter umber 
KHMH HK HH KHKHKK KHKKHKHK 
Set 1 Set 2 Set 3 


The 3 sets shown above are to be memorized and then input as answers. 


The computer will then analyze your answers and place you in one of the 
possible 7 categories. 

Each set is split into 2 parts of former 3 and latter 3 characters, giving a total 
of 6 points when all the answers are correct. 


Points Evaluation Message 


0 IDIOT 
BAD 
AVERAGE 
OK 
GOOD ! 
* INTELLIGENT * 
**KGENIUS** 
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KEY OPERATION SEQUENCE 


Key Input 


Display 


Remarks 


MEMORY CHECK 


Title 


KKXXXKX KKXKXKK AKKKKX 


Display of problem line 
(5 sec.) 

*... character 

Xx ...number 


ANS. = _ 


(Example) 
AB1234 


ANS. = _ 


Waiting for the input of 
set 1 


Waiting for the input of 
set 2 


KK XX XX 


ANS. = _ 


Waiting for the input of 
set 3 


KKXXXX 


KK XXXK KKXKXKXKX KKKKKX 


Display of the problem line 


(1.5 sec.) 


KKXX KX KKXKXKXKX KKK XXX 


Display of the answer input 


— 
IDIOT 
1 


BAD 


AVERAGE 


OK 


display of category 


Bad 


* INTELLIGENT * 


*KGENIUS*X 


+. 


2REPLAY (Y/N) ? 


Player input request 


N |] | 


If Y, go to step 2 


> 


88 


lf N, END 


FLOWCHART 


20 


150 


160 


200 


200 


200 


210 


300 


370 


Construction of the 
problem line 


Display of the 
problem line 
(5 sec.) 


(Subroutine 500) 


Answer input 


Display of the 
input 


Redisplay of the 
problem line 


(Subroutine 500) 


Redisplay of the 
answer input 


(Subroutine 520) 


Evaluation 
of memory 


Display of 
category 


REPLAY 
input (Y/N) 
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PROGRAM LIST 


* 


fo 

mm 
oe 

< 


> USING § WAIT 28 
PRINT "MEMORY CHE 
: CLEAR : RANDOM 
1 GEC Hei sNSC LBD kL 
5(3) #39 XS C3) 46» 250 
#33 S63) 46 
T=1 TO SEnS¢T3= 

Ti NEXT TENSei 


zr 


Wed ho 
od Pim] 
WHA Ow ae Ko 
0 0. OU eS 4 
rt 


< 


fin] 


iT) 
pees 


oJ Oo OA 
ay ce 


a 
tet Et 
ki 


tora i 


woo 
cer 
IT a We 
ook 


oo 


— 
Ln) 
fun] 
“wn NEw NH 1 Ud “Wo & 
mo 
si] 


i 
— 

cia) 
Pr 


PSVECTS 


a 


* a em 
bet 
Ce ee 
Hota ea il 


ow 
bal 


cL) 
=VYSCTIPGSC +5 9= 
PIGHTS €H$:39: NEXT 


48 


yo lan eae aes OO Ge 


= 


rs 


A pet 


-J Oo On 

Wy chy 

as ae ee 
i oe Me OP 

=O oO 
— UO AO 


gai fod 


os 


bao 


Sent 
ae] 


19e:¥S$CT3= RIGH 
333: NEXT I 
2HB:G0SUB S28: 


: GOSUB 528 


TS CXSCT3 


GOSUB 58a 
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DTBIWAIT i5@: ON N GOTO 
386.318.3205 33505340, 
358,368 

SAa:BEEP t: PRINT * IDI 
OT’: GOTO 378 

3iB:BEEP 1: PRINT ” BAD 
*"; GOTO 378 

3269: BEEP 2: PRINT ” AVE 

RAGE’: 60TD 378 

330: BEEP 2: PRINT OK 
*: GOTO 37 

349: BEEP 3: PRINT 50 
Op:"’: GOTO 3748 

358:BEEP 4: PRINT “4 INT 
ELLIGENT **: GOTD 37 
5) 

36: BEEP 5: PRINT "#*GEN 
TSA? 

37H:Ws=""s BEEP Se ae 
Ye REPLAY CY/N)D ? 75 
Wis 

ZSa:IF L THEN 688 

S9Q:1F TREN 58 

395:607 

484:507 

S48: WAI BEEP 2: 
PRI psASC4as” 

; AS¢Sa3" 
"SAS (63 

SiB@:RETUR 

52:WAIT S@: BEEP i: 
PRINT USING "S8288%" 
PBSCLds USING | 2a . 

"Be BR 
a 


MEMORY CONTENTS 


3 columns of characters 


Random number generation 


Random number generation 


Counter 


‘input for REPLAY 


‘Characters (1.~6) 

Number table (1 ~ 10) 

3 columns after answering (1 ~ 3) 
Work (1 ~ 3) 
Work (1 ~ 3) 


3 columns before answering (1 ~ 3) 
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Program Title: BUGHUNT 


OVERVIEW 


This is a game involving a man chasing after a bug. 


CONTENTS 


The bug moves according to random numbers. 
The man chases the bug and kills it. 


The man moves by using the {4 | -[- (6 } keys. (INKEY$ is used) 
(2) 


Each time the man moves one space, so does the bug. (Sometimes the bug will 
stay in the same place) y 

Initially the man is in position s 

(0, 0). 

The bug is placed at a position 
that was chosen randomly. 

Hints are displayed as distance. 
The distance is displayed by the 
ABS(X—a)+ABS(Y—b) — equa- 
tion. 

The initial energy level is 100. 
This decreases by 1 with time. 
Each time that a bug is killed, 
the energy increases by 5, 10, or 


yo wo fF aD nN ODO CO 


To, (The amount is chosen 

randomly.) 

The score is determined by how Oettiso. 5 4 5. 6. 71 87 6 
many bugs were killed when the 

energy level reaches 0. Position of the man (X, Y) 

(The position of the bug may Position of the bug (a, b) 


““warp’’ when cornered.) 

The program can be started by 

either pressing RUN or 
GA). 
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Concerning the display (Small characters are actual values) 


(x, y) 


Present position Hint Remaining energy 
(X coordinate, Y coordinate) (distance) 


DISTANCE = & E=e 


@ Each time the man moves the display changes 


Bug is caught 


HIT! HIT! 


BANG! 


SCORE t ENERGY e 


Concerning the BEEP sound 


* Hint: When the distance is 1 the BEEP goes off 3 times 
2 ” 2 
3 " 1 


* If the distance is greater than 3 no BEEP is given. 
* When the bug is caught, the BEEP goes off 5 times. 


KEY OPERATION SEQUENCE 


Key Input Display Remarks 


(0,0) DISTANCE=5 E=100 


(0,1) DISTANCE=4 E=99 


(1,1) DISTANCE=2 E=98 2 BEEPs 


HIT! HIT! 5 BEEPs 


BANG! BANG! 


SCORE 1 ENERGY 108 


93 


FLOWCHART 


Initial setting 


Energy calculation 
E=F—(S/10) 


A= RND9 
B = RND9 


(2) 


Distance calculation 
L=ABS(X—A)+ABS(Y—B) 


ee of bug position 


y’ 


Positions of the 
bug and the man 


Bug goes into ‘‘warp’’ 
BEEing 3 times 


Judge from the distance 
L=1 BEEP3 
2 2 


3 1 
(X, Y):L:E display 


G$ is used to move the 
man. Time spent 
S=S+1 


Out of the 
9x9 range or G$ 
had read in other 
than 2, 4, 6 and 8. 


The positions 
of the bug and 
the man 


©) , 


PROGRAM LIST 


t@r’at: RANDOM : 


SH: PRINT ‘axe BUGHUN 
T GAME ee? BEEP 3 

28: X=8:Y=82cC=180:F=188: 
T=8:5=8 

3H:A= RAND GiB= RND 9 

49:L= ABS (K-AD+ ABS CY 
-B3 

SQ:IF K=A AND Y=B G07TD 
484 

i8@:IF L=1 BEEP 3 

ig:IF L=2 BEEP 2 

128:IF L=35 BEEP 1 

L3H:WAIT Se: PRINT °C%5 
STR CKo5%s %s STRE ¢ 
Ys") DISTANCE="5 
STRS (LO3" E="*s STR 
cE> 

15@:S=S+i:E=F- INT ¢€5/2) 

L53:1F Ex= a THEN 58 

155:G$= INKEY$ : IF 6$= 
* GOTO 138 

iS7:BEEP i 

16Q:1F G$="2" LET Y=7-1: 
GOTO 218 

LPB IF G$="4" LET X=xK-1: 
GOTO 21 


18@51F O$= 
GOTO 218 

L9@:TF G$="3" LET Y=V¥+1: 
GOTO 216 

249:60T0 158 


Z1@:1F X<@ LET ¥=@: GOTO 
i538 

224:1F ¥<@ LET Y=: GOTO 
i3a 

23Q51F 4>9 LET X=9: GOTO 
i538 

24@iTF ¥9 LET Y=9: 6070 
158 

25@:TF =A AND Y=3B GOTO 
448 


260:E=F- 


INT (5/2) 


27B:TF E¢=8 GOTO 5aa 


288: 
2969:1F R=1 
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:1F PR 


R= RND 5 

LET B=B-1: 
GOTO 34a 
=2 LET AsA-1: 


GOTO 3448 


A29 GOTO 


td 


Qo 
vs 8] 
to 
b 
pea) 
Qa 
soso 
oO 
Ly. 


:607T0 48 
>BEEP 4: PAUSE “xe hd 


ARP #e4?s GOTO 38 


?PAUSE "HIT! HIT!” 


BEEP 5 


PAUSE “BANG! BANG!” 


tT=T+1iC= RND 3*5:F=F 


(5/23 
@: PRINT *°SCO 
” ENERGY “SE 


: PRINT "SCORE 
“3 STRS CT)" #GAME 
DYER! be” 


7END 


MEMORY CONTENTS 


A Position of bug X coordinate 


Position of bug Y coordinate 


Amount of energy added 


Remaining energy 


Key read in 


Distance between bug and man 


Size of bug movement 


Time spent 


Man position X coordinate 


Man position Y coordinate 
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Program Title: DOUBLE ROTATION 


OVERVIEW 
Quickly put in order A, B, C----- 
This is a game that arranges randomly placed characters (A — J) in alphabetical 
order. When the letters are arranged in the right order, a score is displayed. The 
trick is to attack from the best place. 
The sooner the characters are arranged, the better. 
It is fun to race with 2 or 3 of your friends. 


INSTRUCTIONS 


1. After the program is initiated, by pressing [A], “DOUBLE ROTA- 
TION” is displayed. A random sequence of characters (A — J) is then dis- 
played. 


2. The space in between the characters is taken as the break points (1 — 9) 
where the numbers are placed. Inputing a break number causes the characters 
on each side of the breakpoint to be rotated by moving them to the far ends 
of the row. 


3. After the characters have been placed in order, the number of moves required 
is displayed as the score. The lower the score the better. 


EXAMPLE 

In (1) 4 is input, ““F’’ and A SO a 
“1 move to each side chang- (1) | E TH] BlFltlalc]g | D G 
ing the configuration to (2). ie Tt me 
If 1 is now input, the “E” | Pee ee ee: a = 9 
moves to the far right but (2) |F | E;/H|B{A|C|J/|D/G| | 
“E"’ stays in its place because ; zi 
it is already in the far left Oe ee i So Ae oe 
position, becoming configura- _'3) F if H| B A| Cj} J|D\G L I | e 


tion (3). 
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KEY OPERATION SEQUENCE 


Key Input 


Display 


Remarks 


(DEF) (A | 


DOUBLE ROTATION 


+ 


er 


Mh 


Random requence display 


Numbers between 1 and 9 
are selected and input 


Repeated input 


ABCDEFGHIJ 


GAME END 


YOUR SCORE 35 


a 


Does player want to play 
using the same beginning 
random alphabets? 


Aw~sJ 


lems as (DEF) CA ] in 


succession 
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FLOWCHART 


10 
Initial setup 
70 
Random number 
generated 
110 
Alphabet is stored 
depending on 
random numbers 
170 
> 
A sequence of 
alphabets is 
displayed 
INKEY$ 
D$ 
210 


Sequence of letters 
is shifted according 
to the input numbers 


Game over 
score 
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PROGRAM LIST 


ta:’a’: CLEAR : WAIT 58 
: RANDOM : DIM BS¢4) 

29:PAUSE “DOUBLE ROTATI 
ON” 

3a: BS(G)="ABCDEFGHII” 

49:B$¢i)="" 

58:A=8 

6a:FOR I=1 70 19 

7a:R= RND 18 

8:5=24¢R-13 

g5:B=5 AND A 

98:1F BK>@ GOTO 7a 

ig@:Aa=A OR 5 

LLiGIBSCLI=BSCLI+ MIDS CB 
$(H)sRei)! NEXT I 

120: BS(2I=BSC1} 


138:N=6 

15@:BEEP ti 

LTH:D$="": PRINT BS¢20:D 
$= INKEYS 

18a:C= YAL DF 

i9@:1F C= GOTO 178 

DiGi BSC 3)= LEFTS CBS¢2as 
> 

220:BS(4)= RIGHTS CBSC23 
yi8-C} 

24A:1F C=1 GOTO 264 

250: BS(53= RIGHTS (BSCS) 


sid+ LEFTS (BS¢3)5C- 
i 

268:1F C=9 GOTO 288 

270: BS(4)= RIGHTS CBSC4) 
39-C)+ LEFTS (BSC4)s 
i? 

298: 3$(2)=BS(3)+ES64) 

2992 N=N+1 

SAGtIF BSC 29<>BS(H3 GOTO 
158 

3i1@:BEEP 5: PAUSE "GAME 
END’ 

320:WAIT 288: PRINT 
USING “Rann’s °YOUR S 
CORE’SN 

339: END 

4gQ:"B*: WAIT Sa: GOTO 1 
28 
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MEMORY CONTENTS 


Input key 


Random numbers 


v 


Alphabet sequences 


Program Title: PORTRAIT PRINT 


OVERVIEW 


Who is this person? 
Isn’t she beautifu! 
She was drawn using characters and numbers. 


CONTENTS AND INSTRUCTIONS 


Each line of the portrait is stored as data format in BASIC. 
Through the use of the READ command each line is read-in and printed. 


To start the program CA _] is pressed. 


PRINTED OUTPUTS 


Wal SE bs SP Sh ha Mh HE Sb at at 
WU SE Aa Mt ha ME a a at Da a a ttt 
TWssaadsaaannaar git thd 
TWaaanhaananaaana Witt 
AAAAAAAAAAAAAAAAAAA Wi bd 
AAAKK AAAAA Att 
ALK ¥S AAAAAY 
[ig aay £O>>. AAS wh 
5 10> . ek 
Rok 
40K 


ye ox ook 
J . = 4k, nf 
J . 2 tO tok 
IJ brie fo 
JIT. Saat da ACC 
Ji a S| 
aR] /- L 
Js -- I 


JS RAK f/--- 
SLEEK mS 
of f= 
I /-/ 
a 
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KEY OPERATION SEQUENCE 


ne eS ee 


FLOWCHART 


uae 


data format 
reading 
data in 
N 
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PROGRAM LIST 


18:"A": CLEAR : WAIT @: Z5Q:DATA ° 7/44 for 
DIM BSC B>*24 * 
20:RESTORE 268: DATA ° 7/444 --7" 
25:BEEP 3: PAUSE “PORTR 270: DATA ’7 7" 
AIT PRINT’ 286: DATA “I 7-7" 
3@:DATA ” WOW MMW td tt 290: DATA ” ye 
WWW” 295: DATA °” 
48:DATA ” Ab ah pan panpiao pian] 3@@: BEEP 1: READ BS¢(@): 
RWHWtWtW’ LPRINT BSc) 
S@: DATA °  tlittsaaananaa 31i@:IF BS¢os="" END 
SAOTWIWW” 320:G0T0 308 
6a: DATA ” ftlWaanaaaaaan 
Aa Wit’? 
TAIDATA "Aaanananaanaaana T94 
AAAAA ld” 
BB: DATA “sank 
AAAAA ATTY 
9O:DATA “aa,* f= 
ANAAAA® 
LBQ:DATA Yaa , I0)>. : 
AAA AY Cc 
11@:DATA ” s JO} ) 
r sok? E 
12@:DATA ° 3. 1 F 
dckookdc ? G 
13O03DATA * 5 .. IT rr 
. aa”? 
i4a:DATA * 3. OT : 
156: DATA “J {.- K 
Ans [es 
166:DATA “ J M 
woke” % 
17@:DATA ° J == 
ee, J x 
180:DATA * J ’ 
re Sa Q 
19B:DATA * JJ R 
oO aK” Ss 
ZH@:DATA "JIJ T 
KY U 
Z21@:DATA ” JJ Vv 
Ks =-L” 
220:DATA * JJ 2d 
f= L’ Xx 
230:DATA * Irs Y 
a= Loe zZ 
240: DATA ” II & B$(@)* 24] FOR READING DATA 


77, 
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SHARP ELECTRONICS CORPORATION 
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